Excel VBA質問箱 IV

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

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


70758 / 76732 ←次へ | 前へ→

【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 を付け忘れていました・・・
そのために日付の後ろにスペースが・・・メッセージボックスで
表示しているときには全然気づかなくて・・・
本当にごめんなさい。そして親切に教えていただいて感謝しています。

1 hits

【10450】特定セルへの入力 momo 04/1/27(火) 11:49 質問
【10452】Re:特定セルへの入力 Asaki 04/1/27(火) 12:39 回答
【10463】Re:特定セルへの入力 momo 04/1/28(水) 10:43 質問
【10464】Re:特定セルへの入力 Asaki 04/1/28(水) 10:53 回答
【10465】Re:特定セルへの入力 momo 04/1/28(水) 11:34 質問
【10470】Re:特定セルへの入力 Asaki 04/1/28(水) 11:47 回答
【10473】Re:特定セルへの入力 momo 04/1/28(水) 12:05 質問
【10474】Re:特定セルへの入力 Asaki 04/1/28(水) 12:14 回答
【10476】Re:特定セルへの入力 momo 04/1/28(水) 13:37 お礼

70758 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free