Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14971 / 76734

←次へ　｜　前へ→


	【67249】Re:度々すみません、「セルへの追加の貼り付け」

まめ - 10/11/17(水) 14:21 -


	引用なし

	パスワード

▼UO3 さん：
>▼まめさん：
>
>こんにちは
>はずしているかもしれませんが、以下のようなことですか？
>
>Sub 置換()
>　Range("C1").Value = "ABC"　 '準備
>　Range("C1").Value = "XYZ"
>End Sub
>
>Sub 追加()
>　Range("C1").Value = "ABC"　 '準備
>　Range("C1").Value = Range("C1").Value & "XYZ"
>End Sub

レスありがとうございます、いま上記を元に出来ないか試行錯誤しております、

問題のコードを一部抜粋しました

For i = 3 To 8
ActiveWorkbook.Worksheets("シフト").Activate
If Not (Cells(3, intXLine).Value = "" Or Cells(3, intXLine).Value = "明" Or Cells(3, intXLine).Value = "休" Or Cells(3, intXLine).Value = "特" Or Cells(3, intXLine).Value = "有") Then
'MsgBox Cells(3, intXLine).Value + "出勤日は処理する"
　　If Cells(i, 1).Value <> "" Then
　　Cells(i, 1).Copy
　　ActiveWorkbook.Worksheets(ws).Activate
　　Range("C4").PasteSpecial
'Else
'MsgBox "明休特有と空白"

8 9 10行目が問題の場所となっています。

0 hits

▼

【67247】度々すみません、「セルへの追加の貼り付け」 まめ 10/11/17(水) 14:03