Excelマクロ覚書 ~ワークシートの操作編~
図書館で借りてきた某書籍の覚書です。
- 【ワークシートを選択する】
- 【ワークシートをコピーする】
- 【ワークシートを移動する】
- 【ワークシートを削除する】
- 【ワークシートに名前をつける】
- 【ワークシートを追加する】
- 【ワークシートを非表示にする】
- 【ワークシートの見出しに色をつける】
- 【ワークシートを保護する】
【ワークシートを選択する】
複数のワークシートから指定されたワークシートを選ぶときは、
Worksheetsプロパティを使う。
Worksheetではないので注意(sを忘れない)
Worksheets(値)
Worksheets("2018年").Select '2018年のシートを選択する'
複数のワークシートを選択するときは、Array関数を使う。
Array(要素A, 要素B, 要素C...)
Worksheets(Array("3月","5月")).Select '3月と5月のシートを選択する'
【ワークシートをコピーする】
指定されたワークシートをコピーするときは、Copyメソッドを使う。
Worksheetsプロパティとの間は半角スペースで開ける。
Worksheetsプロパティ.Copy before / after
※指定できる値
Before | :指定したワークシートの左側 |
After | :指定したワークシートの右側 |
Worksheets("2018年").Copy After:="2017年" '2017年の後ろに2018年のシートをコピーする'
【ワークシートを移動する】
指定されたワークシートを移動するときは、Moveメソッドを使う。
引数には何も指定しない場合は、新規ワークシートに移動する。
Worksheetsプロパティ.Move 移動する位置
※指定できる値
Before | :指定したワークシートの左側 |
After | :指定したワークシートの右側 |
Worksheets("表紙").Move Before:="集計用No1" '集計用No1の前に表紙を移動させる
【ワークシートを削除する】
ワークシートを削除するときは、Deleteメソッドを使う。
Worksheetsプロパティ.Delete
誤操作を防ぐために、削除前には警告メッセージを表示するのがベター。
警告メッセージを表示するには、Display.Alertプロパティを使う。
Application.DisplayAlerts = True / False
※指定できる値
True | :メッセージを表示する。Excelを再起動するまで設定が残るのを防ぐため、処理の最後には必ずTrueにする。 |
False | :メッセージを表示しない。 |
Application.DisplayAlerts = True
Worksheets("前年度").Delete '前年度シートを削除する'
【ワークシートに名前をつける】
ワークシートに名前をつけるにはNameプロパティを使う。
Worksheetsプロパティ.Name = 値
Worksheets("initial").Name = Worksheets(i).Range("A1").Value. 'セルA1の値をシート名に設定する'
【ワークシートを追加する】
ワークシートを追加するにはAddメソッドを使う。
Worksheetsプロパティ.Add Before / After
Worksheets.Add After:= Worksheets("7月"). '7月の後に新しいシートを追加する'
ActiveSheet.Name = 8月 . '新しいシート名を「8月」にリネームする'
【ワークシートを非表示にする】
ワークシートを非表示にするにはVisibleプロパティを使う。
Worksheetsプロパティ.Visible = 値
※指定できる値
xlSheetVisible | :表示する |
xlSheetHidden | :非表示にする |
True | :表示する |
False | :非表示にする |
Worksheets("4月").Visible = xlSheetHidden. '4月のシートを非表示にする'
【ワークシートの見出しに色をつける】
ワークシートの見出しに色をつけるには、TabオブジェクトとColorプロパティを使う。
Worksheetsプロパティ.Tab.Color
※指定できる値
RGB(赤, 青, 緑) | :色の割合を設定する |
xlColorIndexNone | :シート見出しの色を指定しない(標準) |
Worksheets("4月").Tab.Color = RGB(255, 0, 0). '「4月」のワークシートに赤色を設定する'
【ワークシートを保護する】
ワークシートのセルをロックするにはLockedプロパティを使う。
Rangeプロパティ.Locked = True / False
※指定できる値
True | :ロックする(標準) |
False | :ロックを解除する |
Range("B5").Locked = False. 'セルB5のロックを解除する'
ワークシートを保護するにはProtectメソッドを使う。
通常は、セルのロックを解除してからワークシートを保護する。
保護を解除するにはUnprotectプロパティを使う。
Worksheetsプロパティ.Protected
Worksheetsプロパティ.Unprotected
Worksheets("Sheet1").Protect. 'Sheet1を保護する'
Excelマクロ覚書 ~行と列の操作編~
図書館で借りてきた某書籍の覚書です。
【行・列を選択する】
1行をまとめて取得する場合はRowsプロパティを、
1列をまとめて取得する場合はColmnsプロパティを使う。
行・列が連続する場合は、必ず数値をダブルクォーテーションで囲む。
また、指定した行・列を結合する場合はUnionメソッドを使う。
Rows(行番号)
Columns(列番号)
Union(対象列 or 対象行)
Union(Rows(1), Rows(3)).Select '1行目と3行目を選択する'
【現在のセルがある行(列)を選択する】
指定したセルを含む行全体を取得する場合は、EntireRowプロパティを使う。
指定したセルを含む列全体を取得する場合は、EntireColumnプロパティを使う。
Rangeオブジェクト.EntireRow
Rangeオブジェクト.EntireColumn
Range("B1").EntireRow.Select 'B行を選択する'
【行・列の幅や高さを調節する】
行の高さを調節するにはColumnWidthプロパティ、
列の高さを調節するにはRowHeightプロパティを使う。
Columnsプロパティ.ColumnWidth = 値
Rowsプロパティ.EntireColumn = 値
Columns("B1:10").ColumnWidth = 15 'B1~10行の高さを15ポイントにする'
【行・列の幅や高さを自動調節する】
行・列のサイズを自動調節するには、AutoFitメソッドを使う。
Columnsプロパティ.AutoFit = 値
Rowsプロパティ.AutoFit = 値
Columns("B1:10").AutoFit 'B1~10行の高さを自動調節する'
【行・列を非表示にする】
行・列を非表示にするには、Hiddenプロパティを使う。
Columnsプロパティ.Hidden = True / False
Rowsプロパティ.Hidden = True / False
※指定できる値
True | :非表示にする |
False | :表示する |
Columns("B1:10").Hidden = True 'B1~10列を非表示にする'
【行・列を挿入する】
行・列を挿入するにはInsertメソッドを使う。
列の挿入はColumnsプロパティ、行の挿入はRowsプロパティ。
Columnsプロパティ.Insert
Rowsプロパティ.Insert
書式を適用するには、引数CopyOriginを使う。
Rows("10").Insert CopyOrigin := x1FormatFromRightOrBelow '10行目に挿入した後、下(11行目)の書式を適用する'
【行・列を削除する】
指定した行・列を削除するにはDeleteメソッドを使う。
Columnsプロパティ.Delete
Rowsプロパティ.Delete
Rows("D").Delete 'D行を削除する'
Excelマクロ覚書 ~罫線編~
図書館で借りてきた某書籍の覚書です。
- 【罫線を設定する】
- 【セル下側に罫線を設定する】
- 【罫線の色を設定する】
- 【罫線の太さを変更する】
- 【表示形式をカンマ区切りにする】
- 【表示形式を指定した日付にする】
- 【セルの塗りつぶしの設定をする】
- 【セルの背景色の設定をする】
【罫線を設定する】
罫線を設定するにはFontメソッドのBordersプロパティを使う。
(sつけるのを忘れないように!)
Rangeオブジェクト.Borders.LineStyle = 値
※指定できる値
xlContinuous | :実践 |
xlDash | :破線 |
xlDashDut | :一点鎖線 |
xlDashDotDot | :二重鎖線 |
xlDot | :点線 |
xlDouble | :2本線 |
xlSlantDashDot | :斜破線 |
xlLineStyleNone | :罫線の設定を解除する |
Range("A1").Borders.LineStyle = xlContinuous 'A1セルに実践の罫線をつける'
【セル下側に罫線を設定する】
セル下側に罫線を設定するにはBordersプロパティで指定する。
Rangeオブジェクト.Borders(値)
※指定できる値
xlDiagonalDown | :セルの左上隅から右下への罫線 |
xlDiagonalUp | :セルの左下隅から右上への罫線 |
xlEdgeBottom | :下側の鎖線 |
xlEdgeLeft | :左端の罫線 |
xlEdgeRight | :右端の罫線 |
xlEdgeTop | :上側の罫線 |
xlInsideHorizontal | :指定した範囲内のすべてのセルの水平罫線 |
xlInsideVertical | :指定した範囲内のすべてのセルの垂直罫線 |
Range("A1").Borders(xlEdgeRight).LineStyle = xlDash 'A1セルの下側に破線をつける'
【罫線の色を設定する】
セル下側に罫線を設定するにはBordersプロパティで指定する。
Range("A1").Borders.Color = RGB(0, 0, 255) 'A1セルの罫線の色を青に設定'
【罫線の太さを変更する】
罫線の太さを変更するにはWeightプロパティで指定する。
Rangeオブジェクト.Bordersオブジェクト.Weight = 値
※指定できる値
xlHairline | :細線(最も細い罫線) |
xlMedium | :普通 |
xlThick | :太線(最も太い罫線) |
xlThin | :極細 |
Range("A1").Borders(xlEdgeBottom).Weight = xlThick 'A1セルの下側に太線をつける'
【表示形式をカンマ区切りにする】
書式をカンマ区切りにするにはNumberFormatLocalプロパティを使う。
Rangeオブジェクト.NumberFormatLocal = 設定値
※指定できる値
# | :1桁の数字。指定した桁数未満の場合は表示されない。 |
0 | :1桁の数字。指定した桁数未満の場合でも表示される。 |
Range("A1").NumberFormatLocal = "\#,##0" 'A1セルに3桁までの金額が表示される。'
【表示形式を指定した日付にする】
書式を日付(yyyy/mm/dd)にする場合も、NumberFormatLocalプロパティを使う。
Rangeオブジェクト.NumberFormatLocal = 設定値
※指定できる値
yy | :西暦年(下2桁) |
yyyy | :西暦年(4桁) |
g | :元号(アルファベット) |
gg | :元号(先頭文字) |
ggg | :元号 |
e | :月(1~12) |
mmm | :月(英語簡略表記) |
mmmm | :月(英語表記) |
mmmmm | :月(英語表記の先頭文字) |
d | :日(1~31) |
dd | :日(01~31) |
ddd | :曜日(英語簡略表記) |
dddd | :曜日(日本語簡略表記) |
aaa | :曜日(日本語簡略表記) |
aaaa | :曜日(日本語表記) |
h | :時(0~23) |
hh | :時(00~23) |
m | :分(0~59) |
mm | :分(00~59) |
s | :秒(0~59) |
ss | :秒(00~59) |
Range("A1").NumberFormatLocal = "YYYY/MM/DD" 'A1セルにyyyy/mm/dd形式で日付を表示する。'
【セルの塗りつぶしの設定をする】
セルを塗りつぶすには、Interiorプロパティを使う。
Rangeオブジェクト.Interior.Color = RGB(0, 0, 255)
Rangeオブジェクト.Interior.Color = 色名
※指定できる色
rgbAqua | :水色 |
rgbBlack | :黒 |
rgbBlue | :青 |
rgbForestGreen | :フォレストグリーン |
rbgGreen | :緑色 |
rgbLime | :黄緑 |
rgbNavy | :ネイビー |
rgbRed | :赤 |
rgbWhite | :白 |
rgbYellow | :黄 |
Range("A1").Interior.Color = rgbBlue 'A1セルを青にする。'
【セルの背景色の設定をする】
セルの背景色の設定をするには、ThemeColorプロパティを使う。
また、TintAndShadeプロパティを使うことで基本色の割合を設定できる。
(正の値だと白、負の値だと黒)
Rangeオブジェクト.Interior.ThemeColor = 色名
Rangeオブジェクト.Interior.TintAndShade = 数値
※指定できる色
xlThemeColordark1 | :白色 |
xlThemeColorLight1 | :黒 |
xlThemeColorDark2 | :ベージュ |
xlThemeColorLight2 | :濃い青 |
xlThemeColorAccount1 | :青 |
xlThemeColorAccount2 | :赤 |
xlThemeColorAccount3 | :オリーブ |
xlThemeColorAccount4 | :紫 |
xlThemeColorAccount5 | :アクア |
xlThemeColorAccount6 | :オレンジ |
Range("A1").Interior.ThemeColor = xlThemeColorDark2 'A1セルの背景色をベージュ基調の色にする。'
Excelマクロ覚書 ~フォント編~
図書館で借りてきた某書籍の覚書です。
- 【フォントサイズを変更する】
- 【フォントファミリーを変更する】
- 【フォントの位置を変更する】
- 【複数のフォントを結合する】
- 【文字列を回転する】
- 【文字列を折り返して表示する】
- 【文字列を幅の長さに応じて縮小する】
- 【文字列を太字にする】
- 【文字列を斜体にする】
- 【文字列に下線を引く】
- 【文字列の色を変更する】
【フォントサイズを変更する】
フォントサイズを変更するにはFontメソッドのSizeプロパティを使う。
Rangeオブジェクト.Font.Size
Range("A1").Font.Size = 25 'A1セルのフォントサイズを25にする'
指定したセルのフォントサイズに合わせることもできる
Range("A1").Font.Size = Range("B1").Font.Size 'B1セルのフォントサイズをA1セルに適用する'
指定したセルのフォントサイズに乗算する場合
Range("A1").Font.Size = Range("B1").Font.Size * 2 'B1セルのフォントサイズを2倍にしてA1セルに適用する'
【フォントファミリーを変更する】
フォントの種類を変更するにはFontメソッドのNameプロパティを使う。
Rangeオブジェクト.Font.Name
Range("A1").Font.Name = "MS P明朝" 'A1セルのフォントファミリーをMS P明朝にする'
指定したセルのフォントサイズに合わせることもできる
Range("A1").Font.Size = Range("B1").Font.Size 'B1セルのフォントサイズをA1セルに適用する'
指定したセルのフォントサイズに乗算する場合
Range("A1").Font.Size = Range("B1").Font.Size * 2 'B1セルのフォントサイズを2倍にしてA1セルに適用する'
【フォントの位置を変更する】
フォントの縦位置を変更するにはRangeオブジェクトのVerticalAlignmentプロパティを使う。
Rangeオブジェクト.VerticalAlignment = フォント位置
※指定できる値
xlTop | :上詰め |
xlCenter | :中央揃え |
xlBottom | :下詰め |
xlJustify | :両端揃え |
xlDistributed | :均等割り付け |
Range("A1").VerticalAlignment = xlTop 'A1セルのフォント位置を上詰めにする'
フォントの横位置を変更するにはRangeオブジェクトのHorizontalAlignmentプロパティを使う。
Rangeオブジェクト.HorizontalAlignment = フォント位置
※指定できる値
xlGeneral | :標準 |
xlLeft | :左詰め |
xlCenter | :中央揃え |
xlRight | :右詰め |
xlFill | :繰り返し |
xlJustify | :両端揃え |
xlCenterzAcrossSelection | :均等割り付け |
Range("A1").HorizontalAlignment = xlRight 'A1セルを右詰めにする'
【複数のフォントを結合する】
フォントを結合するにはRangeオブジェクトのMergeメソッドを使う。
フォントの位置を変更する場合はHorizontalAlignmentを使う。
Rangeオブジェクト.Merge
Range("A1:C1").Merge 'A1~C1セルを結合する'
フォントの結合を解除するにはUnmergeメソッドを使う。
Rangeオブジェクト.UnMerge
Range("A1:C1").UnMerge 'A1~C1セルの結合を解除する'
【文字列を回転する】
文字列の角度を調整するにはOrientationプロパティを使う。
Rangeオブジェクト.Orientation = 角度
Range("A1").Orientation = 45 'A1セルにある文字列の角度を45度にする'
角度指定を解除するには0を指定する。
Range("A1").Orientation = 0 'A1セルの回転指定を解除する'
【文字列を折り返して表示する】
文字列を折り返して全体を表示するにはWrapTextプロパティを使う。
Rangeオブジェクト.WrapText = True / False
※指定できる値
True | :折り返す |
Fales | :折り返さない |
Range("A1").WrapText = True 'A1セルの文字列が枠に入りきらない場合は折り返す'
マクロを実行するたびにTrueとFalseを切り替える場合。
Range("A1").WrapText = Not Range("A1").WrapText 'マクロを実行するたびにTrueとFalseが交互に切り替わる'
【文字列を幅の長さに応じて縮小する】
文字列が幅に入りきらない場合、ShrinkToFitプロパティを使うことで幅に応じて文字サイズを決めることができる。
Rangeオブジェクト.ShrinkToFit = True / False
※指定できる値
True | :幅に入りきらない場合は文字サイズを縮小する |
Fales | :幅に入りきらなくても文字サイズを縮小しない |
Range("A1").ShrinkToFit = True 'A1セルの文字列が幅に入りきらない場合は縮小'
【文字列を太字にする】
文字列を太字にするには、Boldプロパティを使う。
Rangeオブジェクト.Bold = True / False
※指定できる値
True | :太字にする |
Fales | :太字設定を解除する |
Range("A1").Bold = True 'A1セルを太字にする'
【文字列を斜体にする】
文字列を斜体にするには、Italicプロパティを使う。
Rangeオブジェクト.Italic = True / False
※指定できる値
True | :斜体にする |
Fales | :斜体設定を解除する |
Range("A1").Italic = True 'A1セルを斜体にする'
【文字列に下線を引く】
文字列に下線を引くには、Underlineプロパティを使う。
Rangeオブジェクト.Underline = 下線の種類
※指定できる値
xlUnderlineStyleDouble | :太い二重下線 |
xlUnderlineStyleDoubleAccounting |
:細い二重下線 |
xlUnderlineStyleSingle |
:一重下線 |
xlUnderlineStyleNone |
:下線なし |
Range("A1").Underline = xlUnderlineStyleSingle 'A1セルの文字列に一重下線を引く'
【文字列の色を変更する】
文字列の色を変更するには、FontメソッドのColorプロパティを使う。
色はRGB関数で指定する。
Rangeオブジェクト.Font.Color = RGB(赤, 緑, 青)
Range("A1").Font.Color = RGB(255,255,255) 'A1セルの文字列の色を白にする'
指定したセルと同じ色にする場合
Range("A1").Font.Color = Range("B1").Font.Color 'A1セルの文字列の色をB1セルと同じにする'
Excelマクロ覚書 ~コピペ編~
図書館で借りてきた某書籍の覚書です。
【セルのデータをコピーする】
セルをコピーするにはCopyメソッドを使う。
Rangeオブジェクト.Copy
Range("B4").Copy 'B4セルをコピーする'
コピーしたセルを貼り付けするにはPasteメソッドを使う。
Worksheetオブジェクト.Paste
Range("A4:F10").Copy 'コピーしたセルの'
Range("H4").select '貼り付け先を選んで'
ActiveSheet.Paste 'ペースト実行'
別のワークシートに貼り付ける場合は、RangeオブジェクトのDestinationを指定する
Copyとの間は半角スペースで区切る。省略もできるが、なるべく指定したほうがいい?
左側にコピー元のシート、右側にコピー先のシートを指定する
Worksheetオブジェクト.Rangeオブジェクト.Copy Destination:= Worksheetsオブジェクト.Rangeオブジェクト
Worksheets("Sheet1").Range("A1:F12").Copy _ Destination:=Worksheets("Sheet2").Range("A1")
【セルのデータを移動する】
切り取ってからペーストするので、CutメソッドとPasteメソッドを使う。
Rangeオブジェクト.Cut
Range("A1:F12").Range("A1:F12").Copy '切り取ったセルの'
Range("H1").Select '貼り付け先を選んで'
ActiveSheet.Paste 'ペースト実行'
別のワークシートに貼り付ける場合も、Copyメソッドと同様
Worksheetオブジェクト.Rangeオブジェクト.Cut Destination:= Worksheetsオブジェクト.Rangeオブジェクト
Worksheets("Sheet1").Range("A1:F12").Cut _ Destination:=Worksheets("Sheet2").Range("A1")
【セルを削除する】
セルの値を削除するにはDeleteメソッドを使う。
引数にShiftを指定することで、指定した方向に移動できる
Shiftに指定できる設定値は、xlShiftToLeft(左方向)とxlShiftUp(上方向)のみ
Rangeオブジェクト.Delete Shift:= 隣接セルの移動方向
Range("F12").Delete Shift:=xlShiftToLeft 'F12セルを削除後、F13のセルをF12にずらす'
Range("B1:F12").Delete Shift:=xlShiftToLeft 'B1~F12セルを削除後、B13~F25のセルをB1~F12にずらす'
【セルを挿入する】
セルの値を挿入するにはInsertメソッドを使う。 引数にShiftを指定することで、指定した方向に移動できる Shiftに指定できる設定値は、xlShiftToRight(右方向)とxlShiftDown(下方向)のみ 移動後の書式はセル上側の書式が適用される。
Rangeオブジェクト.Insert Shift:= 隣接セルの移動方向
Range("F12").Insert Shift:=xlShiftToLeft 'F12セルに挿入後、既存のF12セルを右にずらす'
Range("F12").Value = "私は猫になりたいんだ!" 'F12セルに値を入力'
セル移動後の書式を変更するにはCopyOriginを使う。
※CopyOriginに指定できる設定値
- xlFormatFromLeftOrAbove(上、左側セルの書式)
- xlFormatFromRightOrBelow(右・下側セルの書式)
Rangeオブジェクト.Insert Shift:= 隣接セルの移動方向, CopyOrigin:= セル移動後の書式を適用する方向
Range("F1:H4").Insert Shift:=xlShiftDown, CopyOrigin:= x1FormatFromRightOrBelow 'F1~H4セルに値を挿入後、右・下側セルの書式を適用'
【セルの形式を指定してコピペする】
セルの形式を指定して貼り付けるにはPasteSpecialメソッドを使う。
引数にPasteを指定することで、貼り付け先セルの形式を指定できる。
Rangeオブジェクト.PasteSpecial Paste:= PasteSpecial 貼り付け先セルの形式
※Pasteに指定できる設定値
xlPasteFormats | :書式のみ |
xlPasteFormulas | :数式のみ |
xlPasteFormulasAndNumberFormats | :値のみ |
xlPasteValuesAndNumberFormats | :値と数値の書式 |
Range("A1:H10").Copy 'F1~H10セルをコピー'
Range("F12").PasteSpecial Paste:=xlPasteFormats 'F12セルを起点に、書式のみ貼り付け'
【値を算出して貼り付ける】
セルの値を算出して張り付けるにはPasteSpecialメソッドの引数Operaionを設定する。
Rangeオブジェクト.PasteSpecial Operaion:= 算出方法
※Operationに指定できる設定値
xlPasteSpecialOperationAdd | :加算 |
xlPasteSpecialOperationSubtract | :減算 |
xlPasteSpecialOperationDivide | :除算 |
xlPasteSpecialOperationMultiply | :除算 |
Range("A1").Value = 1.08 'A1セルに消費税を設定'
Range("A1").Copy 'A1セルをコピー'
Range("B1").PasteSpecial Paste:=xlPasteValues _
, Operation:= xlPasteSpecialOperationMultiply 'A2セルに消費税分を加える'
Excelマクロ覚書 ~入力編~
図書館で借りてきた某書籍の覚書です。
- 【セルを選択する】
- 【複数セルを選択する】
- 【セルに文字列を入力する】
- 【セルに数値を入力する】
- 【セルに日付を入力する】
- 【セルに数式を入力する】
- 【すべてのデータを削除する】
- 【書式のみ削除する】
【セルを選択する】
セルを選択するにはRange関数を使う。セル番地は""で区切る。
Range(選択するセル番地).Select
Range("A1").Select 'A1セルを選択する'
セル範囲を指定するには、Selectメソッドを使う。
Rangeオブジェクト.Select
Range("A2:G2").Select 'B2~G2セルを選択する'
セルをアクティブにするには、Activateメソッドを使う
Range(セル名:セル名).Activate
Range("A5").Activate 'A5セルを選択する'
セルを指定するには、Cellsメソッドを使う。セル番地ではないので""は不要。
Cells(行番号:列番号)
Cells(2,3).Select 'B3セルを選択する'
指定したセルから移動する場合
Rangeオブジェクト.Cells(行番号:列番号)
Range("A1").Cells(2,3).Select 'C2セルを選択する'
【複数セルを選択する】
複数セルを選択するには、コロンで区切る
Range(セル名:セル名).Select
Range("A1:H10").Select 'A1~H10セルを選択する'
離れた場所にあるセルを複数選択する場合はカンマ区切り
Range(セル番地 , セル番地 , セル番地)
ex) Range("A2,B5,C10") 'A2、B5、C10セルを選択する'
【セルに文字列を入力する】
セルの値を入力・変更するには、Valueプロパティを使う
Rangeオブジェクト.Value = "文字列"
Range("A1").Value = "私は猫になりたい" 'A1セルの文字列を入力する'
【セルに数値を入力する】
文字列同様に、Valueプロパティを使う。数値なので""は不要
Rangeオブジェクト.Value = 数値
Range("A1").Value = 18782 'A1セルの数値を入力する'
離れたセルを選択することもできる
Range("A1, B5, C10").Value = 18782 'A1、B5、C10セルの数値を入力する'
範囲指定する場合はコロンで区切る
Range("F3:G10").Value = 37564 'F3、G10セルの数値を入力する'
【セルに日付を入力する】
#で囲むことで日付を入力できる。形式は#dd/mm/yyyy#
Rangeオブジェクト.Value = #日付#
Range("A15").Value = #6/30/2019# 'A15セルの日付を入力する'
【セルに数式を入力する】
Formulaプロパティを使う。数式は""で囲む
Rangeオブジェクト.Formula = "数式"
Range("A15").Formula = "=A2*B2" 'A15セルにA2とB2セルを乗算した値を入力する'
【すべてのデータを削除する】
Clearメソッドを使う。キレイさっぱり消える上に後から復元できないので注意!
Rangeオブジェクト.Clear
Range("A1:C10").Clear 'A1~C10セルの値と書式を削除する'
現在選択中のセルを消したい場合は、Selectionプロパティを使う
Selection.Clear '選択中のセルの値と書式を削除する'
【書式のみ削除する】
ClearFormatメソッドを使う。フォーマットをクリアってまんまやんけ!
書式のみなので、もちろん値は消えない
Rangeオブジェクト.ClearFormats
Range("A1:C10").ClearFormats 'A1~C10のセルの書式を削除する'
現在選択中のセルの書式を消したい場合は、Selectionプロパティを使う
Selection.ClearFormats '選択中のセルの書式を削除する'