A 回答 (2件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
空白セルに数値を入力した後マクロを実行し数値を任意の文字列に置き換えると言うことですね?(1=A君 2=B君 3=C君 みたいな感じ?的はずしてるかも。
。)マクロの記憶で置き換え動作を記憶させてみてはどうでしょうか?
ツール⇒マクロ⇒新しいマクロの記憶(名前は適当に) で記憶開始にして(先にセルに数値入力しといてくださいね)、
置き換えしたいセル範囲を選択し、編集⇒検索と置換を実行し1=A君⇒実行 2=B君⇒実行 3=C君⇒実行 で置き換え終了し、
ツール⇒マクロ⇒マクロ記憶終了 で完了です。
後は数値を適当に入力しまくってツール⇒マクロ⇒マクロ実行 でさっきの記憶を実行すれば置き換わります。
どこまでご存知かわからないので手っ取り早い方法書きました。
ご参考までに。。。
この回答への補足
早速のご回答ありがとうございます。説明不足でした。申し訳ございません。もう少し詳細に言いますと
(1)下記のセル範囲で
A B C D
1 A君
2 C君
3A君 B君 C君
4 C君 B君
(2)下記の別カウンタがあります。
A君 B君 C君
2 2 3
(3)、(1)の表の文字列の個人ごとの数と(2)のカウンタの個人毎の数字は同じです。
(4)そこで(2)のカウンタを下記の様にA君に一つ追加した場合に
A君 B君 C君
3 2 3
(5)表も下記の様に文字列を一つ追加させたいのです。
A B C D
1 A君 A君←追加させるセルは空白のセルなら
2 C君 どこでもいいです。
3A君 B君 C君
4 C君 B君
マクロはマクロの記憶をさせること程度しか出来ない初心者です。
よろしくお願いします。
No.2
- 回答日時:
元の範囲がA1:D4
カウントするデータの題目 F1:H1 ... A君 B君 C君など
カウントが F2:H2
設定値が F3:H3
といったセル範囲なら
Sub m()
Dim r1 As Range, r2 As Range
Dim r As Range, bFlag As Boolean
' カウントをループする
For Each r1 In Range("F2:H2")
' 設定値を取得
Set r2 = r1.Offset(1)
' 設定値が違うならループ
Do While r1.Value <> r2.Value
' forループを抜けたときのエラー判定用フラグ
bFlag = False
' 元データの範囲をループ
For Each r In Range("A1:D4")
' 最初に見つかったセルへ記入
If r.Value = "" Then
' カウンタの上の行 F1:H1にデータがある
r.Value = r1.Offset(-1).Value
' 記入したのでフラグをセット
bFlag = True
Exit For
End If
Next
' フラグが立っていなかったらエラー
If bFlag = False Then
MsgBox "記入できるセルがありません"
Exit Sub
End If
Loop
Next
End Sub
# 字下げには全角スペースを使用しています
この回答への補足
ご回答ありがとうございます。お教えいただいた内容で試しているのですが、設定値というのは、どの様な値の事を言うのでしょうか?範囲、カウントと入力し、設定値がわからないため適当な数字を入れたのですが、全てA君となり最後に”記入できるセルがありません”と表示されてしまします。設定値の意味をお教えください。
補足日時:2009/04/21 22:17お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの関数で質問です。 3 2023/02/24 14:07
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Visual Basic(VBA) セルに抜けた番号の代わりに空白を挿入する 4 2023/04/10 20:29
- Excel(エクセル) エクセルマクロ セルをクリックするたびに記号を入力 1 2022/10/13 19:47
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) Excel 特定セルの数値を参照したセルの0表示が空白にならないのはどうしてか? 3 2022/04/28 22:23
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Visual Basic(VBA) 先頭と末尾を指定して連続した数字を入力 1 2022/09/14 13:12
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
ExcelのVBA。public変数の値が...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
サクラエディタ・マクロ → VSCo...
-
ExcelVBAでPDFを閉じるソース
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
エクセルに張り付けた写真のフ...
-
エクセルのマクロについて教え...
-
ユーザーフォームを起動しなが...
-
エクセルのマクロについて教え...
-
VBA アドインについて お詳しい...
-
VBA初心者 Ctrl+での操作、ボタ...
-
特定文字のある行の前に空白行...
-
2つのマクロでチェックボックス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
ExcelVBAでPDFを閉じるソース
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
マクロ実行時、ユーザーフォー...
-
Excelのマクロについて教えてく...
-
ソース内の行末に\\
おすすめ情報