トリスタン、あなた良い味出してる。多崎礼さんの「レーエンデ国物語」にハマっています。とても良い。ここ最近は「本好きの下克上」を幾度となく読み返す日々を送っていましたが、多崎作品の「重くて暗くて長（そう）」な感じもとても好きなのです。「本の姫
会員登録後、有料プランで広告を非表示に
詳しくはこちら
現役システムエンジニアである筆者が、仕事やオフの時間を充実したものにするため、業務の効率アップや、日々話題になっているいろいろなことがらについて書いています。 IT技術者ならではの視点から、様々な考察を述べれたらと思います。
Excelマクロの高速化設定をクラスにまとめる方法【VBA入門】
前回紹介したExcelマクロを高速化する設定をクラスモジュールにまとめると、様々なマクロで再利用(使い回す)できるようになります。Excelマクロの高速化設定をまとめたクラスクラスモジュールの実装は以下のようになります。ここでは仮にProc
Excelで1行おきに色を塗って縞模様にする方法！【VBA入門】
Excelで大きな表を作成した際に、1行おきに色を変え縞模様にすると見易さが大きく変わります。昔からの定番として「条件付き書式」にで1行おきに背景色を設定するという方法がありますが、今回はこの作業をExcelマクロで自動化してしまおう！とい
「ブログリーダー」を活用して、モランさんをフォローしませんか？
指定した記事をブログ村の中で非表示にしたり、削除したりできます。非表示の場合は、再度表示に戻せます。
画像が取得されていないときは、ブログ側にOGP(メタタグ)の設置が必要になる場合があります。
トリスタン、あなた良い味出してる。多崎礼さんの「レーエンデ国物語」にハマっています。とても良い。ここ最近は「本好きの下克上」を幾度となく読み返す日々を送っていましたが、多崎作品の「重くて暗くて長（そう）」な感じもとても好きなのです。「本の姫
サンプルソースは次のとおり。'シートの表示形式の切替えSub Example32() ActiveWindow.View = xlPageBreakPreviewEnd Subにほんブログ村
サンプルソースは次のとおり。'シートを一部編集可能で保護するSub Example31() With Sheets("Sheet1") .Range("A1").Locked = Fals
サンプルソースは次のとおり。'シートを保護するSub Example30() Sheets("Sheet1").ProtectEnd Subにほんブログ村
サンプルソースは次のとおり。'シート見出しの色を変更するSub Example29() Sheets("Sheet1").Tab.Color = vbRedEnd Subにほんブログ村
サンプルソースは次のとおり。'シートを移動するSub Example28() Sheets("1").Move After:=Sheets("2")End Subにほんブログ村
サンプルソースは次のとおり。'シートをコピーするSub Example27() Sheets("1").Copy After:=Sheets("2")End Subにほんブログ村
サンプルソースは次のとおり。'シート名を変更するSub Example26() Sheets("Sheet1").Name = "test"End Subにほんブログ村
サンプルソースは次のとおり。'シートを非表示にするSub Example25() Sheets("Sheet2").Visible = FalseEnd Subにほんブログ村
サンプルソースは次のとおり。'シートを削除するSub Example24() Application.DisplayAlerts = False Sheets("Sheet1").Delete Applicat
サンプルソースは次のとおり。'シートを挿入するSub Example23() Worksheets.Add after:=Sheets("Sheet1")End Subにほんブログ村
サンプルソースは次のとおり。'罫線の詳細な位置を設定するSub Example16() With Range("A1:C3") .Borders(xlEdgeTop).LineStyle = xlContin
サンプルソースは次のとおり。'罫線を設定するSub Example15() With Range("A1:C3").Borders .LineStyle = xlContinuous .Weight = x
サンプルソースは次のとおり。'文字のスタイルを変更するSub Example14() Range("A1").Font.Bold = True Range("A1").Font.Underl
サンプルソースは次のとおり。'文字の大きさを変更するSub Example13() Range("A1").Font.Size = 20End Subにほんブログ村
サンプルソースは次のとおり。'フォントを変更するSub Example12() Range("A1").Font.Name = "MS ゴシック"End Subにほんブログ村
サンプルソースは次のとおり。Sub Example09() Rows(1).RowHeight = 10 Columns("A").ColumnWidth = 5End Subにほんブログ村
サンプルソースは次のとおり。Sub Example08() Rows(1).Delete Columns("A").DeleteEnd Subにほんブログ村
サンプルソースは次のとおり。Sub Example07() Rows(1).Insert Columns("A").InsertEnd Subにほんブログ村
サンプルソースは次のとおり。Sub Example06() Range("A1").ClearEnd Subにほんブログ村
サンプルソースは次のとおり。'シートの表示形式の切替えSub Example32() ActiveWindow.View = xlPageBreakPreviewEnd Subにほんブログ村
サンプルソースは次のとおり。'シートを一部編集可能で保護するSub Example31() With Sheets("Sheet1") .Range("A1").Locked = Fals
サンプルソースは次のとおり。'シートを保護するSub Example30() Sheets("Sheet1").ProtectEnd Subにほんブログ村
サンプルソースは次のとおり。'シート見出しの色を変更するSub Example29() Sheets("Sheet1").Tab.Color = vbRedEnd Subにほんブログ村
サンプルソースは次のとおり。'シートを移動するSub Example28() Sheets("1").Move After:=Sheets("2")End Subにほんブログ村
サンプルソースは次のとおり。'シートをコピーするSub Example27() Sheets("1").Copy After:=Sheets("2")End Subにほんブログ村
サンプルソースは次のとおり。'シート名を変更するSub Example26() Sheets("Sheet1").Name = "test"End Subにほんブログ村
サンプルソースは次のとおり。'シートを非表示にするSub Example25() Sheets("Sheet2").Visible = FalseEnd Subにほんブログ村
サンプルソースは次のとおり。'シートを削除するSub Example24() Application.DisplayAlerts = False Sheets("Sheet1").Delete Applicat
サンプルソースは次のとおり。'シートを挿入するSub Example23() Worksheets.Add after:=Sheets("Sheet1")End Subにほんブログ村
サンプルソースは次のとおり。'罫線の詳細な位置を設定するSub Example16() With Range("A1:C3") .Borders(xlEdgeTop).LineStyle = xlContin
サンプルソースは次のとおり。'罫線を設定するSub Example15() With Range("A1:C3").Borders .LineStyle = xlContinuous .Weight = x
サンプルソースは次のとおり。'文字のスタイルを変更するSub Example14() Range("A1").Font.Bold = True Range("A1").Font.Underl
サンプルソースは次のとおり。'文字の大きさを変更するSub Example13() Range("A1").Font.Size = 20End Subにほんブログ村
サンプルソースは次のとおり。'フォントを変更するSub Example12() Range("A1").Font.Name = "MS ゴシック"End Subにほんブログ村
サンプルソースは次のとおり。Sub Example09() Rows(1).RowHeight = 10 Columns("A").ColumnWidth = 5End Subにほんブログ村
サンプルソースは次のとおり。Sub Example08() Rows(1).Delete Columns("A").DeleteEnd Subにほんブログ村
サンプルソースは次のとおり。Sub Example07() Rows(1).Insert Columns("A").InsertEnd Subにほんブログ村
サンプルソースは次のとおり。Sub Example06() Range("A1").ClearEnd Subにほんブログ村
サンプルソースは次のとおり。Sub Example05() Range("A1").Delete Shift:=xlUpEnd Subにほんブログ村
