
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんばんは。
その様なサイトは分からないのと、まとめて変更は不可だと思います。
内部処理としては、1列ずつ幅を設定する形になるかと思います。
例えば、下記の様なコードでどうでしょうか?
サンプルでは、セルの1行に、セルの基本の幅を入れています。
(実際には、別のシートにセルの幅を保存しておく様な形でしょうか?)
変更したいセル、又は列を選んだ状態で、マクロを実行すると、
インプットボックスが表示され、それに数値を入れると、1行目のセルの
数値×インプットボックスの数値を掛けた値を、選択されたセルを対象に
セルの幅に設定します。
Sub 幅の変更()
Dim myRng As Range, myInpDat As Single, myColNo As Long, myCalDat As Single
myInpDat = Application.InputBox("幅の係数", Type:=1)
For Each myRng In Selection.Columns
myColNo = myRng.Cells(1, 1).Column
Columns(myColNo).ColumnWidth = Cells(1, myColNo).Value * myInpDat
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Excel(エクセル) 既存の複数のExcelファイルを一括して変更 1 2021/11/13 19:58
- Access(アクセス) accessでexcelデータを一部変換してインポートするVBAコードを教えてください。 2 2021/12/14 08:31
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Excel(エクセル) IF文の管理を簡単にしたい 4 2021/11/07 11:23
- Excel(エクセル) Excel 判別して色変え 2 2021/12/02 18:38
- Excel(エクセル) Excel 2 2021/10/24 19:29
- Visual Basic(VBA) 【Excel VBA】表の列の値毎に分割するには?(値がブックのファイル名) 9 2021/11/16 18:25
- Excel(エクセル) vlookupで複数条件で抽出するにはどうしたらいいでしょうか? b列に市区町村コード、c列に日付が 2 2021/11/02 16:03
- Excel(エクセル) excelの列幅高さが勝手に変わる(特定のPCだけ) 8 2022/07/14 16:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
任意フォルダから画像をすべて...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
エクセルvbaで、別シートの最下...
-
ExcelVBAを使って、値...
-
Word版VBで表の任意の箇所を...
-
screenupdatingが機能しなくて...
-
EXCELのVBA-フィルタ抽出後の...
-
任意フォルダから画像をすべて...
-
vba 隣のセルに値がある行だけ...
-
VBAで行削除できないようにする...
-
EXCELで変数をペーストしたい
-
vb.netによるEXCEL値取得
-
Application.Matchで特定行の検索
-
VBAでセルをクリックする回...
-
Excel VBA、 別ブックの最終行...
-
Excelのプルダウンで2列分の情...
-
VBA ユーザーフォーム ボタンク...
-
エクセルVBAで、非表示にし...
-
特定行の色を変えたい(FlexGrid)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
エクセルvbaで、別シートの最下...
-
特定のセルが空白だったら、そ...
-
VBA実行後に元のセルに戻りたい
-
【Excel VBA】指定行以降をクリ...
-
任意フォルダから画像をすべて...
-
【Excel】指定したセルの名前で...
-
VBAでセルをクリックする回...
-
【VBA】シート上の複数のチェッ...
-
EXCELのVBA-フィルタ抽出後の...
-
Excelのプルダウンで2列分の情...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
”戻り値”が変化したときに、マ...
-
ExcelのVBAで数字と文字列をマ...
-
VBA ユーザーフォーム ボタンク...
-
Excel VBA マクロ ある列の最終...
-
Excel VBA、 別ブックの最終行...
おすすめ情報