|
▼ponpon さん:
▼ponpon さん:
説明不足ですみません。
"H18.3.15"とはならず、"3/15/2006"となってしまいます。
P10:Q349の範囲の書式設定は、
分類→日付
種類→H13.3.14
となっています。
書式設定は何度変更しても結果は変わっていません。
他のコードが関係しているでしょうか?
ですが,転写自体は成功していますし....
記述コードは、
↓
Private Sub CommandButton1_Click()
UserForm4.Hide
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim myAry, r
myAry = Array("C10:Q349", "S10:Z349", "AB10:AD349", "AG10:AN349", "AU10:AX349")
Set Sh1 = Sheets("あいうえお")
Set Sh2 = Sheets("かきくけこ")
If UserForm7.OptionButton1.Value = True Then
For Each r In myAry
Sh2.Range(r).Value = Sh1.Range(r).Value
Next
Sh2.Range("O10:Q349").NumberFormatLocal = "[$-411]ge.m.d;@"
End If
UserForm16.Show
End
End Sub
ですが....
|
|