
No.3ベストアンサー
- 回答日時:
こんばんは。
私も、前々から、これに関しては疑問に感じていました。
それは、VBAのワークシートの引数の元のソース部分は、数値処理なのに、Columns は、文字によって入れることに成り立ちます。確かに、変数として扱うには、"A:C" は上手くないのは同感です。Columnsの引数は、index で、Rows との整合性がなくてはならないのに、その統一が取れていません。これは、設計上のミスかもしれません。
最初に、test1 の場合。
Sub test1()
With ActiveSheet
.Range(.Columns(1), .Columns(3)).Select
End With
End Sub
このような形は、一般的ではありません。それは、Rangeの内部の引数にオブジェクトを入れるということは、納まりがよくないからです。基本的に、親オブジェクトから、プロパティとして一続きなっていなければなりません。
Sub test2()
With ActiveSheet
.Cells(1, 1).Resize(, 3).EntireColumn.Select
'Cells(1, 1).Resize(, 3).ColumnWidth = 20 '列幅を20にする
End With
End Sub
そこで、数値処理する場合は、こういう形にするしかないのかなって思います。
No.2
- 回答日時:
やってみると
Columnsの複数列指定の場合A:Cのようにすべきで1:3はエラーです。
1つの列の場合は数字指定が出来ます。
Application.ReferenceStyle = xlR1C1が関係してないかと思って
やってみましたが、関係ないようです。
不統一な感じで、理由不明ですが、やむを得ません。
Sub test01()
Columns("A:C").ColumnWidth = 15
End Sub
Sub test02()
With Application
.ReferenceStyle = xlR1C1
End With
Columns(4).Select
Selection.ColumnWidth = 10
End Sub
Sub test03()
With Application
.ReferenceStyle = xlA1
End With
Columns(6).Select
Selection.ColumnWidth = 10
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
-
4
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
5
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
6
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
7
VBAで文字列を数値に変換したい
Excel(エクセル)
-
8
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
9
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
10
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
13
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
14
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
15
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
16
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
17
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
18
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
19
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
20
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
Excelでフィルタをかけると警告...
-
VBAで既に開いている別アプリケ...
-
テキストボックス中の文字列の...
-
Excel VBAでIEにアクセスするプ...
-
「オブジェクト変数または With...
-
実行時エラー 3265「要求された...
-
UserForm1.Showでエラーになり...
-
AccessVBAで「dim dbs as datab...
-
アクセスにてオブジェクト名変...
-
textBox isNot Nothing とは
-
ExcelVBAでのNZ関数について
-
VBAからPDFファイルにパスワー...
-
ADO 「NEW」の意味、必要性
-
エクセル/保護したシート上の埋...
-
EXCEL VBA オートシェイプナン...
-
エクセルマクロエラー「'Cells'...
-
(初心者です)VBAについて。「実...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
テキストボックス中の文字列の...
-
エクセルのVBAの標準モジュール...
-
Excelでフィルタをかけると警告...
-
実行時エラー 3265「要求された...
-
上下の位置揃えについて
-
ExcelVBAでのNZ関数について
-
VBAで既に開いている別アプリケ...
-
VBAで Set wb = Sheets(1).Cop...
-
AccessVBAで「dim dbs as datab...
-
EXCEL VBA オートシェイプナン...
-
オブジェクト変数またはWITHブ...
-
[VBA]CDOメッセージ送信エラー
-
エクセルマクロエラー「'Cells'...
-
findメソッドの変数について
-
オブジェクトが見つかりません
-
ある文字列が全て数字であるか...
-
オブジェクト変数の取得について
-
CreateObjectとGetObjectの違い
おすすめ情報