Excel VBA質問箱 IV

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

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


1231 / 13645 ツリー ←次へ | 前へ→

【75541】日付と文字列の結合についてお尋ね 新参者 14/5/13(火) 14:32 質問[未読]
【75543】Re:日付と文字列の結合についてお尋ね γ 14/5/13(火) 20:59 発言[未読]
【75547】Re:日付と文字列の結合についてお尋ね 新参者 14/5/14(水) 7:32 お礼[未読]

【75541】日付と文字列の結合についてお尋ね
質問  新参者  - 14/5/13(火) 14:32 -

引用なし
パスワード
      A   B   C   D
1 2013  9   1   H25年9月
2 2014  10  30   H26年11月
3
4
5
6
7       H25.9  
8       H26.11 
9
10       H25.9〜H26.11
以上の様な表示をしたいのですが・・・・

Sub test()
 Dim a1 As Range, b1 As Range, c1 As Range
 Dim a2 As Range, b2 As Range, c2 As Range
  
  Set a1 = Range("b1")
  Set b1 = Range("b1")
  Set c1 = Range("c1")
  Set a2 = Range("a2")
  Set b2 = Range("b2")
  Set c2 = Range("c2")
  
  Cells(1, 4) = "=Date(A1,B1,C1)"
  Cells(2, 4) = "=Date(A2,B2,C2)"
  
'   Range("C7") = "=Text(Date(A1,B1,C1),"ge. M")"
'  Cells(8, 3) = "=Text(Date(A2,B2,C2)," ge. M")"
  
  Range("c10").Value = Range("c7").Value & " 〜 " & Range("c8").Value
End Sub
  
Excel関数をマクロで使いたいのですが、コマンド部分が実行できません。
どの様にすればよろしいでしょうか、教えてください。

【75543】Re:日付と文字列の結合についてお尋ね
発言  γ  - 14/5/13(火) 20:59 -

引用なし
パスワード
   ▼新参者 さん:
>'   Range("C7") = "=Text(Date(A1,B1,C1),"ge. M")"
>Excel関数をマクロで使いたいのですが、コマンド部分が実行できません。
>どの様にすればよろしいでしょうか、教えてください。
" "の中でさらに"を使うには、"を二つ続けて書くのがきまりです。

  Range("C7") = "=Text(Date(A1,B1,C1),""ge. M"")"
ですね。
計算式を入れるのではなく、計算した文字列を書き込むなら、
  Range("C7") = Format(DateSerial(a1.Value, b1.Value, c1.Value), "ge. M")
のようにしますね。

【75547】Re:日付と文字列の結合についてお尋ね
お礼  新参者  - 14/5/14(水) 7:32 -

引用なし
パスワード
   γ さんへ 

大変参考になりました。
有難うございました。

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