はなかな さん プロフィール

  •  
はなかなさん: まるで・・・
ハンドル名はなかな さん
ブログタイトルまるで・・・
ブログURLhttp://ayukt0526.blog.fc2.com/
サイト紹介文JW二世女子のJW個人研究、ドラマ、アニメ、ドラマCD、音楽、本の感想及び作業の効率化ブログです。
参加カテゴリー
更新頻度(1年)情報提供184回 / 365日(平均3.5回/週) - 参加 2017/01/20 00:33

はなかな さんのブログ記事

  • 印刷範囲の保存
  • Sub 印刷範囲() x = 1 Do Until ThisWorkbook.Worksheets("印刷設定").Cells(x, 1) = ActiveSheet.Name If
    ThisWorkbook.Worksheets("印刷設定").Cells(x, 1) = "" Then Exit Do End If x = x +
    1 Loop If ActiveSheet.PageSetup.PrintArea = vbNullString Then Else ThisWorkbook.Worksheets("印刷設定&quo
    t;).Cells(x, 1) = ActiveSheet.Name ThisWorkbook.Worksheets( [続きを読む]
  • 書式なしフィルをマクロで行う
  • Sub 書式なしフィルをマクロで行う() Dim a As Variant Set a = Application.InputBox("コピーセルを選
    択して下さい", Type:=8) Dim b As Variant Set b = Application.InputBox("貼り付けるセルを選択して
    下さい", Type:=8) Range(a.Address).Select Selection.AutoFill Destination:=ActiveSheet.Range(Selection, b.Address), Ty
    pe:=xlFillValuesEnd Subマクロですっと出てくるとすごく使いやすくて楽しいで [続きを読む]
  • センシル
  • 着せ替えバトルゲームなんですけど、めっちゃ面白くて最近よくプレイしています。変な組み合わせでもSS取れたりするのが謎ですが。あと、バトルだ勝たないといけないので、センスない服装がふえていく;;; [続きを読む]
  • いくつかのマクロを追加する
  • Application.CommandBars("Worksheet Menu Bar").Controls("印刷設定").Delete Application.CommandBars("
    ;Worksheet Menu Bar").Controls("ブックリンクリストの作成").Delete Application.CommandBars("Work
    sheet Menu Bar").Controls("シートまとめてコピー").Delete Application.CommandBars("Worksheet Menu
    Bar").Controls("outputPDF").Delete Application.CommandBars("Worksheet Menu Bar").Controls("保存
    し [続きを読む]
  • シート名でPDFを作成する
  • Sub outputPDF()Application.ScreenUpdating = FalseDim fileName As StringfileName = ThisWorkbook.Path & "" & ActiveSheet.N
    ame & ".pdf" Dim ws As WorksheetDim zzzReDim zzz(ActiveWindow.SelectedSheets.Count - 1)Dim i As Longi = 0For Each s In A
    ctiveWindow.SelectedSheets zzz(i) = s.Name i = i + 1Next For Each ws In Worksheets(zzz) With ws.PageSetup
    .Zoom = False [続きを読む]
  • 範囲コピー
  • sub 名前定義コピー Dim x As LongDim namaex = 1For Each ws In WorksheetsIf ws.name = "名前の定義2" Thenws.DeleteEnd IfNextWorksheets.Add Before:=Worksheets(1)ActiveSheet.name = "名前の定義2"For Each namae In ActiveWorkbook.NamesActiveSheet.Hyperlinks.Add Anchor:=Cells(x, 1), Address:=Cells(x, 1), SubAddress:="", _TextToDisplay:=namae.namex = x + 1NextWith ActiveWorkbook.VBProject.VBComponents.It [続きを読む]
  • 選択範囲を移動する
  • Sub 選択範囲を移動する() Dim senCSaigo As Long senCSaigo = Selection.Columns.Count Dim senCsaisyo As Long senCsaisyo = Selection.Column Dim senRSaigo As Long senRSaigo = Selection.Rows.Count Dim senRSaisyo As Long senRSaisyo = Selection.Row Range(Cells(senRSaisyo + senRSaigo, senCsaisyo), Cells(senRSaisyo + senRSaigo, senCsaisyo + senCSaigo - 1)).SelectEnd Su [続きを読む]
  • 不要な名前の定義の削除
  • 不要な名前の定義の削除 をするフォーム。Private Sub CommandButton1_Click() ActiveWorkbook.Names(ListBox1.text
    ).Delete ListBox1.Clear Dim namae For Each namae In ActiveWorkbook.Names ListBox1.AddItem namae.Name NextEnd Su
    bPrivate Sub UserForm_Initialize() Dim namae For Each namae In ActiveWorkbook.Names ListBox1.AddItem namae.Name Ne
    xtEnd Subマクロの中身はこんな [続きを読む]
  • PDFのリンク→印刷マクロ
  • PDFのリンクを作成し、リンクを すると自動で印刷してくれます。本当に楽しいマクロです。仕事で良く使えます。Sub PDF印刷()Dim x As Long Dim namae x = 1 For Each ws In Worksheets If ws.Name = "PDF印刷" Then ws.Delete End If Next Worksheets.Add before:=Worksheets(1) ActiveSheet.Name = "PDF印刷" Const cnsDIR = "*.pdf" Dim strFilename As String D [続きを読む]
  • リンクリストの作成
  • ハイパーリンクリストを作成します。これないと、仕事ファイルがぐちゃぐちゃになってしまいます。リンクリスト.xlsmとりあえずこれが欲しくてポイントためてます。。。4500円くらいしかまだたまってません(笑)やる気出ないけどがんばってる人とコウペンちゃん pic.twitter.com/8hlkgJ0ka2— るるてあ (@k_r_r_l_l_) 2018年9月6日後はコウペンちゃんが欲しい!!! [続きを読む]
  • A4横印刷設定
  • Sub Macro1()Dim wsDim x As Longx = 1For Each ws In WorksheetsIf ws.Name = "A4横印刷" ThenApplication.DisplayAlerts =
    Falsews.DeleteApplication.DisplayAlerts = TrueEnd IfNextWorksheets.Add before:=Worksheets(1)ActiveSheet.Name = "A4縦印刷&q
    uot;With ActiveWorkbook.VBProject.VBComponents.Item(Worksheets("A4縦印刷").CodeName).CodeModule.InsertLines 1, "
    Private Sub Worksheet_FollowHyperlink(ByVal Target As [続きを読む]
  • A4縦印刷
  • Sub Macro1() Dim ws Dim x As Long x = 1 For Each ws In Worksheets If ws.Name = "A4縦印刷" Then
    Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If Next
    Worksheets.Add before:=Worksheets(1) ActiveSheet.Name = "A4縦印刷" With ActiveWorkbook.VBProject.VBComp
    onents.Item(Worksheets("A4縦印刷").C [続きを読む]
  • 連れとカラオケ
  • 数か月振りの連れとのカラオケでした。まぁ、お互い歌は下手です。私の方が下手ですが。。。気心知れた友人なので、相手の知ってる・知らない関係なく歌えるのが良いですね。気心知れない方だとなかなか好きな曲が歌えなかったりするので……。(有名でも盛り上がらない曲が好きだったり、盛り上がるけどマイナーなアーティストが多い)ミスチルとかは歌詞が歌詞だから「盛り上がる」ってすごく少ないよね。シーソーゲームとかは盛 [続きを読む]
  • 名前定義のリンクリストを作成する
  • 名前の定義のリンクリストを作ります。すごく難しいです。ただ、作業しながらできるからいいかなって思っています!!! Dim x As Long Dim namae x = 1 For Each ws In Worksheets If ws.Name = "名前の定義" Then ws.Delete End If Next Worksheets.Add before:=Worksheets(1) ActiveSheet.Name = "名前の定義" For Each namae In ActiveWorkbook.Names ActiveSheet.Hype [続きを読む]
  • フォルダ選択→ファイル検索
  • Sub ken() Application.ScreenUpdating = False Dim kensaku kensaku = InputBox("検索したいテキストの入力") Dim Shell, myPath Set Shell = CreateObject("Shell.Application") Set myPath = Shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, "C:") If Not myPath Is Nothing Then MsgBox myPath.Items.Item.Path Dim fso As FileSystemObject Set fso = New FileSystemObject [続きを読む]
  • ファイルリストを作成する
  • Sub Sample2() Dim Shell, myPath Set Shell = CreateObject("Shell.Application") Set myPath = Shell.BrowseForFolde
    r(&O0, "フォルダを選んでください", &H1 + &H10, "C:") If Not myPath Is Nothing Then MsgBox myPat
    h.Items.Item.Path Dim fso As FileSystemObject Set fso = New FileSystemObject ' インスタンス化 Dim fl As F
    older Set fl = fso.GetFolder(myPath.Items.Item.Path) ' フォル [続きを読む]
  • 竹宮ゆゆこ「おまえの全てが燃え上がる」
  • すごく面白かったです。あの主人公ってもの凄く数奇な人生を辿っていますね。信濃と醍醐の二人は何度も絶交してるのにまた仲が良くなるし・・・・・・。普通一度絶交していると、もう一度仲良くなろうなんて思わないと思うんだけど。最後すごく切なかったなぁ。泣きました。まさか信濃と醍醐がね〜。プロポーズもされていたのに。信濃は母がアル中だったし、父も病気。最後きちんと義母にお金を返した信濃がすごく好きです。ってか、愛人 [続きを読む]
  • やること半分終わったよ
  • おやすみ中にやる予定のこと、半分終りました?でも、会いたい人に会ったりしていないのでしないとなと思います。作業はほぼ通常通りやってます。今週からやること増えるから忙しくなりますが、頑張ります。ニンニクで乗りきるよ。あと蜂蜜しょうが?蜂蜜しょうがは夏バテ、疲れ、冷えに効果的なんです(^-^)毎日2、3杯飲んでも大丈夫bConst cnsDIR = "*.xls*"Dim strFilename As StringDim GYO As Long ' 先頭のファイル名の取得 [続きを読む]
  • DoEventsの追加
  • Sub 式のコピー()Dim MaxRow As LongDim MaxCol As LongDim namae As StringDim wsDim g As VariantFor Each ws In WorksheetsIf InStr(ws.Name, " (") 0 Thennamae = Left(ws.Name, InStr(ws.Name, " (") - 1)With Worksheet(namae).UsedRangeMaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).RowMaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).ColumnEnd Withs = Range(Worksheets(namae).Range("a1 [続きを読む]
  • 式のコピーを行う
  • Sub 式のコピー() Dim MaxRow As Long Dim MaxCol As Long Dim namae As String Dim ws Dim g As Variant For Each ws In Worksheets If InStr(ws.Name, " (") 0 Then namae = Left(ws.Name, InStr(ws.Name, " (") - 1) With Worksheet(namae).UsedRange MaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row MaxCol = .Find("*", , xl [続きを読む]
  • 今週の目標
  • 1.式張り付けの簡略。高速化2.700円目指す3.作業時間20時間以上4.本を二冊読む5.プリンスキャットの置き場を作る6.一杯持ってる香水の整理7.やれることは全てするなんか、結局やれることは全てする。に全て入ってる気がします。式はりつけの高速化はやっぱり配列かなぁ……エクセルの配列、苦手なんだよね笑コウペンちゃんと二十四節気13「立秋(りっしゅう)」ギラギラと日差しが降り注ぐ中、暦の上では立秋を迎えます。秋の語 [続きを読む]
  • 8月ですね
  • 7月はエアコンで体調を崩してしまいあまり活動が出来ませんでした。本、日用品(シャンプーや化粧品等)は全て現金使わないでちょくちょくためたポイントのギフト券等で買っています。お金がもったいないので。ここ最近、収入を使うと言う考えがないですね。「掟上今日子の備忘録」見始めました。 [続きを読む]
  • 今月は・・・
  • 今月はかなり金額が行きました!!!欲しい物、あるけどそれ以上に大切なことがあるのでそっちのために行ってきます。自由時間殆ど無いけどもっともっと良い結果!が出るように頑張ります。今月はもしかしたら一万超えたかもしれないです。作業時間は短かったのに・・・・・・。来月は休みが多いから仕事仕事仕事で予定組んでいきます。この前名古屋いってきたよ?名駅のこれおいしかったなー [続きを読む]