| |
▼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行目が問題の場所となっています。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
