No.3
- 回答日時:
以下のマクロを標準モジュールに設定してください。
Option Explicit
Public Sub KG設定()
Dim ws As Worksheet
Dim maxrow As Long
Dim wrow As Long
Set ws = ActiveSheet
maxrow = ws.Cells(Rows.Count, "L").End(xlUp).Row
If maxrow < 12 Then Exit Sub
For wrow = 12 To maxrow
If ws.Cells(wrow, "T").Value = 0 Then
ws.Cells(wrow, "H").NumberFormatLocal = "[赤]G/標準""Kg"""
ws.Cells(wrow, "H").VerticalAlignment = xlBottom
ws.Cells(wrow, "H").Interior.ThemeColor = xlThemeColorDark1
ws.Cells(wrow, "H").Interior.TintAndShade = -0.249977111117893
End If
Next
End Sub
Public Sub KG解除()
Dim ws As Worksheet
Dim maxrow As Long
Dim wrow As Long
Set ws = ActiveSheet
maxrow = ws.Cells(Rows.Count, "L").End(xlUp).Row
If maxrow < 12 Then Exit Sub
For wrow = 12 To maxrow
ws.Cells(wrow, "H").NumberFormatLocal = "G/標準"
ws.Cells(wrow, "H").VerticalAlignment = xlCenter
ws.Cells(wrow, "H").Interior.Pattern = xlNone
Next
End Sub
No.2ベストアンサー
- 回答日時:
添付画像の上のセルがマクロ実行前の状態です。
下のセルがマクロ実行後の状態です。
実行前、実行後の状態はこれであってますか。
赤いKgの付加は書式設定で行っています。
上記で良いなら、実行前の状態は既に右詰めになっているので、
右詰めにする必要はないかと思います。
この回答へのお礼
お礼日時:2023/01/02 20:11
実行前、後。それぞれ合っています。
今、出先なので詳しくは分かりませんが
一度、お願い出来ますでしょうか?
宜しくお願いします。
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) excelにおける転記マクロの書き方 2 2023/05/12 03:16
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) エクセルで2つの表を比較して、文字列が同じだが、その行のある値が違うものを抽出したい 1 2022/10/06 21:48
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一行おきにコピーするマクロが...
-
エクセル マクロ 行や列を削除...
-
Excelの非表示列も含めてコピー
-
EXCELにて複数列を同条件(色)...
-
シート保護の状態で行の追加を...
-
Excel VBAで日にちを入力して線...
-
エクセルで空白以外のセルの値...
-
2つのセルを交互に切り替え表示...
-
エクセルで反転コピー
-
エクセル マクロ 貼り付け先が...
-
エクセルで行挿入した際、自動...
-
エクセルの関数について(日付で...
-
特定の桁数を抽出
-
エクセルで表示された値だけ行...
-
マクロ ScrollColumn について
-
VBAで同じブック内の別シー...
-
[Excel VBA]空白セル以外に連番...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
A1セルに入力したら、入力時間...
-
ある倍数だけを塗りつぶす方法 ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
エクセルで行挿入した際、自動...
-
行数が不規則な一週間ごとの合...
-
Excelの非表示列も含めてコピー
-
エクセル マクロ 貼り付け先が...
-
シート保護の状態で行の追加を...
-
エクセルで表示された値だけ行...
-
エクセルで空白以外のセルの値...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルの関数について(日付で...
-
[Excel VBA]空白セル以外に連番...
-
エクセルで反転コピー
-
【初歩】エクセルでのマクロ(...
-
エクセルで縦に長い表を印刷
-
エクセルVBA 複数列をコピーす...
-
マクロで値がある列までコピー
-
Excel VBAで日にちを入力して線...
-
《エクセル2000》A列・B列の和...
-
マクロ ScrollColumn について
おすすめ情報