Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

59524 / 76732

←次へ　｜　前へ→


	【21895】Re:input boxのつかいかた

りすりす - 05/2/3(木) 2:26 -


	引用なし

	パスワード

Dim SourceSheet, 貼り付け先DestSheet As Worksheet
Dim c As Range
Dim Text As String
Dim i As Long
　　
Text = InputBox("もしもし")
　　
Set SourceSheet = Sheet1　　　'　探すシートを指定
Set 貼り付け先DestSheet = Sheet2　'　貼り付け先のシート

　　　　　　　　　　　　　　 ' ↓ここの列(A)で検索
　　Set c = SourceSheet.Range("A2:A65536").Cells. _
　　　Find(What:=Text, LookIn:=xlValues, LookAt:=xlWhole, _
　　　　　 SearchOrder:=xlByColumns, _
　　　　　 SearchDirection:=xlNext, MatchCase:=False)
　　 If Not c Is Nothing Then
　　　　
　　　 For i = 1 To 65536
　　　　 If 貼り付け先DestSheet.Cells(i, 1) = "" Then
　　　　　 SourceSheet.Range(SourceSheet.Cells(c.Row, 1).Address + ":" + _
　　　　　　　　 SourceSheet.Cells(c.Row, 256).Address).Copy
　　　　　 SourceSheet.Paste Destination:=貼り付け先DestSheet.Range("A" & i)
　　　　　 Exit For
　　　　 ElseIf i = 65536 Then
　　　　　MsgBox "もういっぱいで書き込めないや(-.-)　" + CStr(i)
　　　　 End If
　　　Next
　　　　
　　　 Else
　　　　MsgBox "そんなのないよん"
　　 End If

1 hits

▼

【21857】input boxのつかいかた へるぴー 05/2/2(水) 12:19