『転記』(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]]でも示しましたが、いちいち変数に格納しなくても処理可能だと思います。 ・タイトルは質問内容を要約したものにすると、興味を持ってくれる人が増えて回答がつく可能性がアップすると思います。 ・また、同じような(関連した)質問をするなら、複数トピックを立てず、もとのトピックで追加質問をしたほうが良いと思います。
(もこな2 ) 2024/04/04(木) 11:59:50
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.