[[20240404111946]]　『転記』（11）　ページの最後に飛ぶ

『転記』（11）

Sub あああ()

    Dim valueToTransfer As Variant

    valueToTransfer = Worksheets("Sheet1").Range("G60").Value
    If Not IsEmpty(valueToTransfer) Then
        Worksheets("Sheet2").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Value = valueToTransfer
    End If
End Sub

Sheet1上のフォームコントロールクリックで
G60に値が入っていたらSheet2に転記まではできたのですが、
G60に値が入っていたらE60、F60、H60もSheet2に転記したく、
また逆にG60に値が無ければ無視したいのですがどこをどう変えればいいでしょうか？

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 ＞ G60に値が入っていたらE60、F60、H60もSheet2に転記したく、

 Sheet2のどのセルに代入したのでしょうか。

 質問のコードがかけるなら、そんなに難しいことではないと思いますが、
 自分でトライはしないのですか。

 ＞ また逆にG60に値が無ければ無視したいのですがどこをどう変えればいいでしょうか？

 これも質問のコードで実現できていますが、
 ご自身で書いたコードではないのでしょうか。
（hatena） 2024/04/04(木) 11:48:24

既に指摘がありますが、具体的にどこで詰まっているのですか？
提示されたコードで既に条件分岐が組まれているようですが....

 ついでに、ちょっと気になる点を何点か
・IsEmpty関数を使いたいならそれはそれで結構ですが、単純に値が""かどうかで分岐してもいいのでは？
・付随して[[20240402145700]]でも示しましたが、いちいち変数に格納しなくても処理可能だと思います。
・タイトルは質問内容を要約したものにすると、興味を持ってくれる人が増えて回答がつく可能性がアップすると思います。
・また、同じような（関連した）質問をするなら、複数トピックを立てず、もとのトピックで追加質問をしたほうが良いと思います。

（もこな２） 2024/04/04(木) 11:59:50

コメント返信：

[ 一覧(最新更新順) ]

[[20240404111946]] 『転記』（11） ページの最後に飛ぶ

[[20240404111946]]　『転記』（11）　ページの最後に飛ぶ