お世話になります。
「Set cellchi = ws.Range(Cells(suu, 2), Cells(suu, 67)).Value」行で以下のエラーが発生してしまいます。
実行時エラー '91':
「オブジェクト変数またはWithブロック変数が設定されていません。」
エラーを調べてみると、Setステートメントを使用すればエラーは無くなるとの記載があったのでSetステートメントを追記してみましたがエラー発生しました。
このエラー原因についてご教示いただけますと幸いです。
ちなみに私がこのVBAで行いたいことはフォームのリストから選択した値(変数:rows)を一度型変換(String -> integer)して、その値をCellsの行数として扱いたいと思っています。
よろしくお願いします。
'コマンドボタン(OK)クリックでリストボックスの選択した値を取得
Private Sub CommandButton1_Click()
Dim sele As String
With ListBox1
If .ListIndex = -1 Then
MsgBox "未選択です。"
Else
sele = .List(.ListIndex, 0)
MsgBox sele
End If
End With
'何行目を選択したのか値を取得
Dim rows As String, i As Integer
With UserForm1.ListBox1
For i = 0 To .ListCount - 1 'リストボックスの行数
If .Selected(i) Then '選択されていた場合
If rows = "" Then
rows = i + 1 '1こめのとき
Else
rows = rows & ", " & i + 3 '複数あるとき
End If
End If
Next i
End With
If rows = "" Then
MsgBox "選択されていません"
Else
MsgBox "選択されている行は" & rows & "です。"
End If
Dim ws As Worksheet
Dim cellchi As Range
Dim suu As Integer
suu = rows
Set cellchi = ws.Range(Cells(suu, 2), Cells(suu, 67)).Value
Debug.Print scellchi
With New MSForms.DataObject
.SetText cellchi '変数の値をDataObjectに格納する
.PutInClipboard 'DataObjectのデータをクリップボードに格納する
End With
End Sub
Set
が必要なのはcellchi
ではなくws
の方でしょう。Worksheet
として宣言されただけでActiveSheet
やSelectedSheets
等で実体が割り当てられていないようです。VBA シートを選択またはアクティブにする