お久しぶりです。pipiでございます。
フォームのラベルに文字を反映する関数(GetCampanyInfo())の処理が分からなくて困っています。
Excelの『設定シート』のC1からC4にフォームから会社情報を登録し、それを、ラベルに表示している
のですが、その処理が分かりません。さらに、『設定シート』のD1からD4には、以下の様な関数も入力
されており、一体このIF()も何のために使っているのかも分からない状態です。。
どなたかご教授願います。
=IF(C1="","",C1)
=IF(C2="","",B2&C2)
=IF(C3="","",C3)
=IF(C4="","",B4&" "&C4)
Sub Test() lblCampany.Caption = GetCampanyInfo() Exit Sub
↓ラベルに反映させる関数↓
なぜ、わざわざ、S-""などとして半角のスペースなんていれてるのでしょう??
とにかく、以下のコードは何をやっているのでしょう~????
Public Function GetCampanyInfo() As String With Worksheets("設定") Dim InfoRange As Range Set InfoRange = .Range("D1:D4") Dim s As String s = "" Dim r As Range For Each r In InfoRange s = s & r.Value & vbNewLine Next End With GetCampanyInfo = s End Function
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。