[[20180607140057]] 『セルの中の文字列を結合させて表示』(びろん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『セルの中の文字列を結合させて表示』(びろん)

sheet1

      A
 1   △

sheet2

   B
1  □

sheet1のA1に何か入力されていた場合、A1の文字列にsheet2のB1を結合させて表示し、A1に何も入力されていない場合、sheet2のB1をそのまま表示させたいです。

sheet1のA1に入力されていた場合

   A
1  △□

sheet1のA1に入力されていない場合

   A
1  □

次のようにVBAを書いてみました。

Sub ren()
If Sheets("sheet1").Range("A1") = "*" Then

   Sheets("sheet1").Range("A1").Formula = Sheets("sheet1").Range("A1") & Sheets("sheet2").Range("B1")
Else
   Sheets("sheet1").Range("A1").Formula = Sheets("sheet2").Range("B1")
End If
End Sub

うまくいきません。訂正箇所を教えていただけたらと思います。

< 使用 Excel:Excel2013、使用 OS:Windows7 >


 If Sheets("sheet1").Range("A1") <>"" Then

 ではどうなりますか?

(隠居じーさん) 2018/06/07(木) 14:35


Sub ren()
   Sheets("sheet1").Range("A1").Value = Sheets("sheet1").Range("A1") & Sheets("sheet2").Range("B1")
End Sub

だとだめですか?
条件分岐をする必要が無いように思えます。
(まっつわん) 2018/06/07(木) 14:46


隠居じーさん、まっつわんさん ありがとうございました。どちらともきちんとできました。
(びろん) 2018/06/07(木) 18:39

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.