Excel VBA質問箱 IV

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

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


7905 / 13644 ツリー ←次へ | 前へ→

【36139】#NAME?のセルを転記させた時、内容をちゃんと転記させる方法をご教授願いま... ゆうと 06/3/22(水) 12:51 質問[未読]
【36141】Re:#NAME?のセルを転記させた時、内容をち... Blue 06/3/22(水) 13:32 発言[未読]
【36142】Re:#NAME?のセルを転記させた時、内容をち... ゆうと 06/3/22(水) 13:38 お礼[未読]
【36143】Re:#NAME?のセルを転記させた時、内容をち... Kein 06/3/22(水) 14:07 回答[未読]
【36159】Re:#NAME?のセルを転記させた時、内容をち... ゆうと 06/3/23(木) 9:10 お礼[未読]

【36139】#NAME?のセルを転記させた時、内容をちゃ...
質問  ゆうと  - 06/3/22(水) 12:51 -

引用なし
パスワード
   いつも拝見させていただいております、ゆうと、と申します。
表題について、ご教授願います。


E列の1行目〜10行目までに文字列が入ってます。
それらをループを使い、変数に格納し、J列の同じく1行目〜10行目までに
転記させるマクロを作っています。

ただし、セル(E3)には「=氏名」という文字列が入っており、画面上では「#NAME?」と表示されています。


これでマクロを走らせた結果、セル(J3)には「#NAME?」と表示され、中身も「#NAME?」となっており、「=氏名」という中身が消えてしまいます。

ちゃんと「=氏名」という中身を転記させるには、どうしたらよいですか?
※処理結果が「氏名」となっていても良いです。要するに、先頭の「=」が邪魔して期待通りの結果が出ないので悩んでます。

ちなみに、私が作ってみたコードは下記です。
***********************************************
Private Sub CommandButton1_Click()

Dim 格納 As Variant
Dim i As Long

For i = 1 To 10

  格納 = Cells(i, 5)
  Cells(i, 10) = 格納
  
Next i

End Sub


***********************************************

【36141】Re:#NAME?のセルを転記させた時、内容を...
発言  Blue  - 06/3/22(水) 13:32 -

引用なし
パスワード
   A1に "=氏名" という式が入っていて、B1に文字列として入れる例

その1)
  Cells(1, 2).NumberFormatLocal = "@"
  Cells(1, 2).Value = Cells(1, 1).Formula

その2)
  Cells(1, 2).Value = "'" & Cells(1, 1).Formula


WorksheetFunction.IsError関数とか使って、#NAME?かどうか判定させてからのほうがいいかも。

【36142】Re:#NAME?のセルを転記させた時、内容を...
お礼  ゆうと  - 06/3/22(水) 13:38 -

引用なし
パスワード
   Blueさん、ご回答いただきありがとうございます!

無事解決しました!
ありがとうございました!

【36143】Re:#NAME?のセルを転記させた時、内容を...
回答  Kein  - 06/3/22(水) 14:07 -

引用なし
パスワード
   Sub TEST()
  Dim C As Range

  For Each C In Range("E1:E10")
   If C.HasFormula Then
     .Offset(, 5).Value = Replace(.Formula, "=", "")
   Else
     .Offset(, 5).Value = .Value
   End If
  Next
End Sub

と、いうことかな ?

【36159】Re:#NAME?のセルを転記させた時、内容を...
お礼  ゆうと  - 06/3/23(木) 9:10 -

引用なし
パスワード
   Keinさん、ご返答ありがとうございます!

教えていただいた方法でも問題が解決できました!
勉強になりました!

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