Excel VBA質問箱 IV

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

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


43312 / 76735 ←次へ | 前へ→

【38473】Re:数字の貼り付け
回答  Kein  - 06/6/3(土) 17:41 -

引用なし
パスワード
   サイトでコピーしてから、↓こんなコードで試してみて下さい。

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)

に、変更して下さい。

0 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 回答

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