Excel VBA質問箱 IV

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

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


43193 / 76732 ←次へ | 前へ→

【38591】Re:数字の貼り付け
質問  まち  - 06/6/6(火) 21:55 -

引用なし
パスワード
   ▼Kein さん:
おそくなりましたがありがとうございました。
サイトでコピーしたものをA1、B1、C1...と行に貼り付けるんですよね?
それで、↓のコードで試したらいいんですよね?
そうしてみると、↓のコードが列に入力されるだけになってしまいます。
並べ替えのボタンを作って実行しているんですが、何がおかしいのでしょうか?
Private Sub 並び替え_Click()
  Dim V As Variant
  Dim Flg As Boolean
  Dim Dobj As DataObject
  Dim St As String
  Dim Ary() As String, i As Long, j As Long

  For Each V In Application.ClipboardFormats
   If V = xlClipBoradFormatText Then
     Flg = True: Exit For
   End If
  Next
  If Flg = False Then
   MsgBox "テキストがコピーされていません", 48
   Exit Sub
  End If
  Set Dobj = New DataObject
  Dobj.GetFromClipboard
  St = Dobj.GetText(1): Set Dobj = Nothing
  For i = 1 To Len(St) Step 5
   ReDim Preserve Ary(j)
   Ary(j) = "'" & Mid$(St, i, 5)
   j = j + 1
  Next i
  Range("A1").Resize(UBound(Ary) + 1).Value = _
  WorksheetFunction.Transpose(Ary)
  Erase Ary
End Sub

>サイトでコピーしてから、↓こんなコードで試してみて下さい。
>
>Sub Split_MyData()
>  Dim V As Variant
>  Dim Flg As Boolean
>  Dim Dobj As DataObject
>  Dim St As String
>  Dim Ary() As String, i As Long, j As Long
> 
>  For Each V In Application.ClipboardFormats
>   If V = xlClipBoradFormatText Then
>     Flg = True: Exit For
>   End If
>  Next
>  If Flg = False Then
>   MsgBox "テキストがコピーされていません", 48
>   Exit Sub
>  End If
>  Set Dobj = New DataObject
>  Dobj.GetFromClipboard
>  St = Dobj.GetText(1): Set Dobj = Nothing
>  For i = 1 To Len(St) Step 5
>   ReDim Preserve Ary(j)
>   Ary(j) = "'" & Mid$(St, i, 5)
>   j = j + 1
>  Next i
>  Range("A1").Resize(UBound(Ary) + 1).Value = _
>  WorksheetFunction.Transpose(Ary)
>  Erase Ary
>End Sub
>
>いちおう分割入力している数値は、文字列の扱いとしていますが
>数値に直しても大丈夫なら
>>Ary(j) = "'" & Mid$(St, i, 5)
>↓
>
>Ary(j) = Mid$(St, i, 5)
>
>に、変更して下さい。

2 hits

【38447】数字の貼り付け まち 06/6/3(土) 9:13 質問
【38449】Re:数字の貼り付け ぱっせんじゃー 06/6/3(土) 9:55 発言
【38450】Re:数字の貼り付け まち 06/6/3(土) 10:06 質問
【38452】Re:数字の貼り付け ぱっせんじゃー 06/6/3(土) 10:30 発言
【38473】Re:数字の貼り付け Kein 06/6/3(土) 17:41 回答
【38591】Re:数字の貼り付け まち 06/6/6(火) 21:55 質問
【38596】Re:数字の貼り付け Kein 06/6/6(火) 23:17 回答
【38599】Re:数字の貼り付け まち 06/6/7(水) 8:01 質問
【38621】Re:数字の貼り付け Kein 06/6/7(水) 15:17 回答

43193 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free