Excel VBA質問箱 IV

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

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


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

70764 / 76738

←次へ　｜　前へ→


	【10476】Re:特定セルへの入力

momo - 04/1/28(水) 13:37 -


	引用なし

	パスワード

▼Asaki さん
本当にごめんなさい！！
mydateの入力でミスがありました！

Dim str1 As String, str2 As String　　　'置換に使用
Dim str3 As String, result1 As String
Dim result2 As String

'tuki　と　hi　には予めDATEから月と日にちが入っています。

'検索対象文字列
str1 = tuki
'検索文字列
str2 = "月"
'置換文字列
str3 = "/"
result1 = Replace(str1, str2, str3)

str1 = hi
str2 = "日"
str3 = " "
result2 = Replace(str1, str2, str3)

'文字列の整形
'文字列の末尾のスペースを削除月と日の連結
Dim imstr As String
imstr = result1 & result2
mydate = RTrim(imstr)

以上のコードで、最終行の　Rtrim　を付け忘れていました・・・
そのために日付の後ろにスペースが・・・メッセージボックスで
表示しているときには全然気づかなくて・・・
本当にごめんなさい。そして親切に教えていただいて感謝しています。

0 hits

▼

【10450】特定セルへの入力 momo 04/1/27(火) 11:49