以下は、文字列"t", "e", "s", "t"を配列に取り込み、セルに表示する例ですが、
ar = Array("t", "e", "s", "t")
なら作動しますが、セル範囲から取り込もうと、
ar = Range("A1:D1").Value
とするとエラーになります。
どうしてでしょうか？
Sub test()
Dim ar As Variant
Dim n As Integer
ar = Array("t", "e", "s", "t")
'ar = Range("A1:D1").Value
For n = LBound(ar) To UBound(ar)
Cells(n + 1, 5) = ar(n)
Next n
End Sub
以下は、文字列"t", "e", "s", "t"を配列に取り込み、セルに表示する例ですが、
ar = Array("t", "e", "s", "t")
なら作動しますが、セル範囲から取り込もうと、
ar = Range("A1:D1").Value
とするとエラーになります。
どうしてでしょうか？
Sub test()
Dim ar As Variant
Dim n As Integer
ar = Array("t", "e", "s", "t")
'ar = Range("A1:D1").Value
For n = LBound(ar) To UBound(ar)
Cells(n + 1, 5) = ar(n)
Next n
End Sub
以下は、文字列"t", "e", "s", "t"を配列に取り込み、セルに表示する例ですが、
ar = Array("t", "e", "s", "t")
なら作動しますが、セル範囲から取り込もうと、
ar = Range("A1:D1").Value
とするとエラーになります。
どうしてでしょうか？
Sub test()
Dim ar As Variant
Dim n As Integer
ar = Array("t", "e", "s", "t")
'ar = Range("A1:D1").Value
For n = LBound(ar) To UBound(ar)
Cells(n + 1, 5) = ar(n)
Next n
End Sub
以下は、文字列"t", "e", "s", "t"を配列に取り込み、セルに表示する例ですが、
ar = Array("t", "e", "s", "t")
なら作動しますが、セル範囲から取り込もうと、
ar = Range("A1:D1").Value
とするとエラーになります。
どうしてでしょうか？
Sub test()
Dim ar As Variant
Dim n As Integer
ar = Array("t", "e", "s", "t")
'ar = Range("A1:D1").Value
For n = LBound(ar) To UBound(ar)
Cells(n + 1, 5) = ar(n)
Next n
End Sub
29列ある表なんですが、その内見出しと対応するチェックボックスにチェックが入っていた場合その列を削除して表を詰めたいのですが、うまくいきません。（きれいに削除になりません。）何か方法はないでしょうか。
Rem 非出力項目を非出力にする
For i = 1 To 29
If .Cells(1, i).Text = "AAA" And Frm設定.ChkAAA.Value = 1 Then .Columns(i).Delete
If .Cells(1, i).Text = "BBB" And Frm設定.ChkBBB.Value = 1 Then .Columns(i).Delete
If .Cells(1, i).Text = "CCC" And Frm設定.ChkCCC.Value = 1 Then .Columns(i).Delete
If .Cells(1, i).Text = "DDD" And Frm設定.ChkDDD.Value = 1 Then .Columns(i).Delete
If .Cells(1, i).Text = "EEE" And Frm設定.ChkEEE.Value = 1 Then .Columns(i).Delete
中省略（全部で１２項目あります）
Next i
Ａ Ｂ Ｃ Ｄ Ｅ
１ コード あ い う え
２ １０ ○ ○
３ ２０ ○ ○
４ ３０ ○
上記の表が5000件あります。Textbox1に入力し検索ボタンを押すと
A列のコードを検索して一致する列の○のあるところの１行目の項目
をtextbox2に表示したいのですがうまく行きません。
よろしくお願い致します。
Private Sub CommandButton1_Click()
'検索フォームボタン
Dim i As Long
Dim 最終行 As String
Dim サーチ行 As Long
Sheets(1).Activate
最終行 = Range("A1").End(xlDown).Row
サーチ行 = 0
For i = 2 To 最終行
If TextBox1.Value = Range("A" & i) Then
If Range("B" & i, "N" & i) = "" Then
TextBox2.Text = Range("B1", "N1")
サーチ行 = i
Exit For
End If
End If
Next
If サーチ行 = 0 Then
MsgBox TextBox1.Value & "データはありません。", vbInformation, "無し"
End If
TextBox1.SetFocus
End Sub
エラーはでません。データはありませんとなります。
Wordでテキストボックスをレイアウト枠に変換するマクロを作りました。
簡単なコードだと思うのですが、「オブジェクト変数またはブロック変数が設定されていません」というエラーが出てしまいます。
どこに原因があるのでしょうか？
Sub テキストボックス変換()
Dim i
Dim sp As Shape
For i = 1 To ActiveDocument.Shapes.Count
If sp.Type = msoTextBox Then
sp.ConvertToFrame
End If
Next
End Sub
Wordでテキストボックスをレイアウト枠に変換するマクロを作りました。
簡単なコードだと思うのですが、「オブジェクト変数またはブロック変数が設定されていません」というエラーが出てしまいます。
どこに原因があるのでしょうか？
Sub テキストボックス変換()
Dim i
Dim sp As Shape
For i = 1 To ActiveDocument.Shapes.Count
If sp.Type = msoTextBox Then
sp.ConvertToFrame
End If
Next
End Sub
Wordでテキストボックスをレイアウト枠に変換するマクロを作りました。
簡単なコードだと思うのですが、「オブジェクト変数またはブロック変数が設定されていません」というエラーが出てしまいます。
どこに原因があるのでしょうか？
Sub テキストボックス変換()
Dim i
Dim sp As Shape
For i = 1 To ActiveDocument.Shapes.Count
If sp.Type = msoTextBox Then
sp.ConvertToFrame
End If
Next
End Sub
