Excel VBA質問箱 IV

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

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


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

49317 / 76732

←次へ　｜　前へ→


	【32329】Re:貼り付けた文字列の数列への変換方法

kobasan - 05/12/12(月) 20:41 -


	引用なし

	パスワード

▼VBA勉強中さん今晩は。

これでどうですか。

>
>Dim Num As Integer
>Dim Rw As Long
>Dim LineDat As String
>Dim LeftStr As String
>Const Cols = 20 ' <--- 取得列数
>Dim D, E
>Num = FreeFile
>Application.ScreenUpdating = False
>'Cells.Delete

'ここを修正してください
Range("a:a").Resize(, Cols).NumberFormatLocal = "G/標準"
Open "\test.dat" For Input As #Num　 '<--"\test.dat"としてください

>Do Until EOF(Num)
>　　Line Input #Num, LineDat
>　　D = Split(LineDat, ",")
>　　lineend = LineDat
>　　E = Split(lineend, Chr(13))
>　　ReDim Preserve D(Cols)
>　　ReDim Preserve E(Cols)
>
>　　If Not LeftStr = D(0) Then
>　　　　Sheets("a").Select
>　　　　Worksheets("a").Range("A1").Resize(, UBound(D)).Offset(Rw).Value = D
> '　　　 Worksheets("a").Range("A1").Resize(, UBound(D)).NumberFormatLocal = "G/標準"　 '<---としてください
>
>　　　　LeftStr = D(0)
>　　　　LeftStr2 = E(0)
>　　　　Rw = Rw + 1
>　　End If
>　　If Not LeftStr = E(0) Then
>　　　　LeftStr = Chr(13)
>　　 End If
>Loop
>Close #Num
'------追加してください
Dim vnt
vnt = ActiveSheet.UsedRange.Value
ActiveSheet.UsedRange.Value = vnt

>Application.ScreenUpdating = True
>
>これで読み込むと貼り付けられた数値が文字列になってしまい、平均値計算できません。
>何か貼り付ける時の方法でよい方法はないでしょうか?

3 hits

▼

【32309】貼り付けた文字列の数列への変換方法 VBA勉強中 05/12/12(月) 17:01