Excel VBAで
可変個引数関数Fanc1から、その引数を
可変個引数関数Fanc2に渡したい。
下記例では、A1=a, B1=b, C1=cのとき、#VALUE!となります。
Concatenate2(A1:B1,C1,"po")="abcpo" 問題無し
Fanc1(A1:B1,C1,"po")=#VALUE!
Fanc1でも上と同じ出力にしたいのです。
Function Concatenate2(ParamArray MyArray()) As String
Dim S As String
Dim v As Variant
Dim c As Variant
For Each v In MyArray
If TypeName(v) = "Range" Then
For Each c In v
S = S & c.Value
Next
Else
S = S & v
End If
Next
Concatenate2 = S
End Function
Function Fanc1(ParamArray MyArray()) As String
Fanc1 = Concatenate2(MyArray())
End Function
クリックすると、日付が表示されるように、下記のマクロ設定してあります。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C4:C30")) Is Nothing Then Exit Sub
If ActiveCell = "" Then
ActiveCell = Date
Cancel = True
End If
End Sub
C4~C30とG4~G30の２箇所にしたいのですが、式はどうしたらいいのでしょうか。
よろしくお願いします。
よろしくお願いします。
タイトルのとおりなのですが
SQLで「...from xx(テーブル名)」もしくは「select xx(列名)...」として値を取得しようとしたときにテーブル、列が存在しない場合への対処はどのように処理するのが一般的なのでしょうか?
On Error Resume Next
Set rec = ado.Execute(query)
target = rec.Fields(field).value
if isnull(target) = True then
上記のIf分では値が入っていない場合の処理はできるのですが、テーブル、列が存在しない場合はチェックできませんでした。
度々すいません。マクロはほぼ初心者ですがよろしくお願いします。
前回の質問で、ある程度教えていただいたのですがループさせる方法がよくわかりません。
http://okwave.jp/qa4469670.html
サンプルでコードは
Sub test()
Dim st As String, s As String, stmp As String
Dim sht As Worksheet, rw As Long, col As Long
st = "<div align='center'><b>$4</b></div>@<div align='center'><a rel='nofollow' href='$8'><img src='$9' border='0' alt='$3'></a></div>@<div align='center'><a rel='nofollow' href='$8'>$3</a></div>@$5@$6@<!--$1$2-->"
st = Replace(Replace(st, "@", Chr(10), 1, -1, 1), "'", Chr(34), 1, -1, 1)
Set sht = ActiveSheet '//現在のシートを設定
'------- 1行分の処理 ----
rw = 2 '//処理対象の行番号（2行目に設定）
s = st '//雛型の文字をコピー
For col = 1 To 9 '//A～I列までをループ（col=列番号）
stmp = "$" & Format(col, "#")
'//各セルの内容で置換え
s = Replace(s, stmp, sht.Cells(rw, col).Text, 1, -1, 1)
Next col
sht.Cells(rw, 14).Value = s '//結果をN列に入れる
End Sub
です。
マクロを実行するとセルN2に出力されます。これをN2以降、N3N4・・・も表示されるようにしたいです。
rw = 2 '//処理対象の行番号（2行目に設定）を固定させないでループすればいいようなのですが、どのようにすればいいのでしょうか？
Sub test()～End Sub内全てを教えていただけないでしょうか？
よろしくお願いします。
度々すいません。マクロはほぼ初心者ですがよろしくお願いします。
前回の質問で、ある程度教えていただいたのですがループさせる方法がよくわかりません。
http://okwave.jp/qa4469670.html
サンプルでコードは
Sub test()
Dim st As String, s As String, stmp As String
Dim sht As Worksheet, rw As Long, col As Long
st = "<div align='center'><b>$4</b></div>@<div align='center'><a rel='nofollow' href='$8'><img src='$9' border='0' alt='$3'></a></div>@<div align='center'><a rel='nofollow' href='$8'>$3</a></div>@$5@$6@<!--$1$2-->"
st = Replace(Replace(st, "@", Chr(10), 1, -1, 1), "'", Chr(34), 1, -1, 1)
Set sht = ActiveSheet '//現在のシートを設定
'------- 1行分の処理 ----
rw = 2 '//処理対象の行番号（2行目に設定）
s = st '//雛型の文字をコピー
For col = 1 To 9 '//A～I列までをループ（col=列番号）
stmp = "$" & Format(col, "#")
'//各セルの内容で置換え
s = Replace(s, stmp, sht.Cells(rw, col).Text, 1, -1, 1)
Next col
sht.Cells(rw, 14).Value = s '//結果をN列に入れる
End Sub
です。
マクロを実行するとセルN2に出力されます。これをN2以降、N3N4・・・も表示されるようにしたいです。
rw = 2 '//処理対象の行番号（2行目に設定）を固定させないでループすればいいようなのですが、どのようにすればいいのでしょうか？
Sub test()～End Sub内全てを教えていただけないでしょうか？
よろしくお願いします。
