お世話になります。VBAで以下のコードがあるのですが、以下条件に変更するときはどのように書き足せばいいでしょうか?
調べてやっているのですが、うまく記載ができません。
加工したいコード
If InStr(項目1, "高橋") > 0 Then
入力先ms.Cells(入力先R.Row, 関数名(入力先Ws, "項目2")).Value = "高橋主任"
Else
buf = 参照その1Ws.Cells(参照その1R.Row, 関数名(abcWs, "役割分担")).Value
If Len(buf) = 0 Then
入力先Ws.Cells(入力先R.Row, 関数名(入力先Ws, "名前")).Value = buf
Else
入力先Ws.Cells(入力先R.Row, 関数名(入力先Ws, "名前")).Value = "スタンダード"
End If
End If
本当は以下のようにしたいのですが、そのようになっていません。
入力先シートのA列の値が”〇”のとき、(この条件が以下全体にかかる)
入力先シートの「項目1」に「高橋」が含まれたら「項目2」 に 「高橋主任」と記載
含まれなかった場合
→
別シートの「役割分担」列の値によって条件分け
なにか書かれていたら そのまま記載
空白の時 → スタンダード
としたいのですが、A列が〇のとき、の条件がないのと、
上のコードだと、「役割分担」に何か書かれていると今は空白になってしまいます。。
どうかお助けください!!
No.1ベストアンサー
- 回答日時:
こういうことですかね。
If 入力先Ws.Cells(入力先R.Row, "A").Value = "〇" Then
If InStr(項目1, "高橋") > 0 Then
入力先Ws.Cells(入力先R.Row, 関数名(入力先Ws, "項目2")).Value = "高橋主任"
Else
buf = 参照その1Ws.Cells(参照その1R.Row, 関数名(abcWs, "役割分担")).Value
If Len(buf) > 0 Then
入力先Ws.Cells(入力先R.Row, 関数名(入力先Ws, "名前")).Value = buf
Else
入力先Ws.Cells(入力先R.Row, 関数名(入力先Ws, "名前")).Value = "スタンダード"
End If
End If
End If
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
入力フォームの値をQRコードで...
-
初歩的な事だと思います。 Sub...
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
UWSCで、スクリプトの実行時間...
-
Windowsのアプリ開発ってなんの...
-
Cygwinでtgifを使いたいです。
-
input type ="hidden"の具体的...
-
至急です!Excelがわかりません
-
VBA エクセル 条件の設定
-
EXCEL VBA で指定した範囲に入...
-
VBAの質問になります メッセー...
-
Excel-VBAでInputBox+Pulldown...
-
数字以外の入力をエラーにする...
-
ExcelVBAのユーザーフォームで...
-
EXCEL VBA のユーザーフォーム...
-
uwsc webページ内のテキストボ...
-
コンパイルエラー:ユーザ定義...
-
c#でTextBoxの入力制限
-
accessで該当するレコードがな...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
初歩的な事だと思います。 Sub...
-
数字以外の入力をエラーにする...
-
EXCEL VBA で指定した範囲に入...
-
Excel-VBAでInputBox+Pulldown...
-
入力フォームの値をQRコードで...
-
VBAの質問になります メッセー...
-
c#でTextBoxの入力制限
-
VBAで質問があります
-
教えて!全角文字「μ」の半角
-
VBAでInputBoxの再入力をさせる...
-
excel vba でユーザーフォーム...
-
TextBoxから数字が文字...
-
エディットボックスの入力制限...
-
accessで該当するレコードがな...
-
DataGridViewの桁数制限に関して
-
VBA R1C1形式で変数の入力について
-
「イ分」・・・フンという文字...
-
Windowsのアプリ開発ってなんの...
おすすめ情報