Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7926 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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列の１行目〜10行目までに文字列が入ってます。
それらをループを使い、変数に格納し、J列の同じく１行目〜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さん、ご返答ありがとうございます！

教えていただいた方法でも問題が解決できました！
勉強になりました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7926 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free