Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5104 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【52523】空白を含むコピー＆ペーストについて tantan 07/11/16(金) 20:53 質問[未読]
【52526】Re:空白を含むコピー＆ペーストについて じゅんじゅん 07/11/17(土) 7:20 発言[未読]
【52550】Re:空白を含むコピー＆ペーストについて tantan 07/11/19(月) 11:22 質問[未読]
【52552】Re:空白を含むコピー＆ペーストについて じゅんじゅん 07/11/19(月) 15:40 発言[未読]
【52553】Re:空白を含むコピー＆ペーストについて tantan 07/11/19(月) 16:53 質問[未読]
【52554】Re:空白を含むコピー＆ペーストについて ぴこ 07/11/19(月) 17:19 発言[未読]
【52556】Re:空白を含むコピー＆ペーストについて じゅんじゅん 07/11/19(月) 20:26 発言[未読]
【52558】Re:空白を含むコピー＆ペーストについて tantan 07/11/19(月) 21:07 質問[未読]
【52559】Re:空白を含むコピー＆ペーストについて じゅんじゅん 07/11/19(月) 22:18 発言[未読]
【52557】Re:空白を含むコピー＆ペーストについて tantan 07/11/19(月) 20:51 質問[未読]
【52572】Re:空白を含むコピー＆ペーストについて ぴこ 07/11/20(火) 11:00 回答[未読]
【52599】Re:空白を含むコピー＆ペーストについて tantan 07/11/21(水) 0:23 お礼[未読]
【52523】空白を含むコピー＆ペーストについて
質問  tantan  - 07/11/16(金) 20:53 -
引用なし
パスワード
   はじめまして。

初心者で、とりとめもない質問になってしまうかもしれませんが
ご教授願います。

1.やりたいこと
・Ａ列には日付が行によって入力されていたり、しなかったりランダムにが入力さ　れています。
・Ｃ列には文字列で20070221と入力されているか#N/Aとなっています。
・これをＡ列にもし入力されていなかったら日付に変換して貼り付ける。
と、いうことをやりたいと思っています。

2.現在の状況
　=IF(ISERROR(A1),"",IF(A1=0,"",DATE(LEFTB(A1,4),MIDB(A1,5,2),RIGHTB(A1,2))))
という関数を作ってＤ列に日付か空白を入力しています。
・これをFor〜Next文で空白""でなければＡ列に貼り付けるということを実施
　している。

3.問題点
　・For〜Next文だと1500行もあるので非常に時間がかかる。
　・Ａ列に入力してあるところはそのままにしておきたいので、
　　ただ、列をコピーして張り付けると上書きされてしまう。
　・「空白を無視して張り付ける」を使用しても""には０文字となってしまって
　　おり空白とは認識されない。
　・Ａ列の書式は保ちたい。


以上のような問題を解決する方法がありましたら、是非ご教授願います。

素人で伝わりづらかったら申し訳ありません。長文ですみません。
【52526】Re:空白を含むコピー＆ペーストについて
発言  じゅんじゅん  - 07/11/17(土) 7:20 -
引用なし
パスワード
   >3.問題点
>　・For〜Next文だと1500行もあるので非常に時間がかかる。
>　・Ａ列に入力してあるところはそのままにしておきたいので、
>　　ただ、列をコピーして張り付けると上書きされてしまう。
>　・「空白を無視して張り付ける」を使用しても""には０文字となってしまって
>　　おり空白とは認識されない。
>　・Ａ列の書式は保ちたい。

まず、上記コードを提示されては如何でしょう。
【52550】Re:空白を含むコピー＆ペーストについて
質問  tantan  - 07/11/19(月) 11:22 -
引用なし
パスワード
   ▼じゅんじゅん さん：
>まず、上記コードを提示されては如何でしょう。

すみません。。
こんな感じです。。

Sub てすと()
　Dim i As Integer

　For i = 1 to 1500
　　If Cells(i,4) = "" Then
　　　 Cells(i,4).select
　　 Selection.copy _
　　 Destination:=ThisWorkbook.Worksheets("sheet1").Cells(i,4)
　　 Else: Cells(i,4).select
　　 Selection.copy
　　 Cells(i,1).select
　　 Selection.PasteSpecialPaste:=xlValues,Operation:=xlNone,SkipBlanks;=_
　　 False, Transpose:=False
　　End If

　Next

End Sub


前回も記入させていただきましたが、列をコピーして、空白を無視して張り付ける
ことができれば簡単なのでしょうが、「""」で変換させた空白が邪魔をして
うまくいきません。
何かよい方法がありましたら、ご教授願います。
【52552】Re:空白を含むコピー＆ペーストについて
発言  じゅんじゅん  - 07/11/19(月) 15:40 -
引用なし
パスワード
   ▼tantan さん：
>▼じゅんじゅん さん：
>>まず、上記コードを提示されては如何でしょう。
>
>すみません。。
>こんな感じです。。
>
>Sub てすと()
>　Dim i As Integer
>
>　For i = 1 to 1500
>　　If Cells(i,4) = "" Then
>　　　 Cells(i,4).select
>　　 Selection.copy _
>　　 Destination:=ThisWorkbook.Worksheets("sheet1").Cells(i,4)
>　　 Else: Cells(i,4).select
>　　 Selection.copy
>　　 Cells(i,1).select
>　　 Selection.PasteSpecialPaste:=xlValues,Operation:=xlNone,SkipBlanks;=_
>　　 False, Transpose:=False
>　　End If
>
>　Next
>
>End Sub
>
>1.やりたいこと
>・Ａ列には日付が行によって入力されていたり、しなかったりランダムにが入力さ　れています。
>・Ｃ列には文字列で20070221と入力されているか#N/Aとなっています。
>・これをＡ列にもし入力されていなかったら日付に変換して貼り付ける。
>と、いうことをやりたいと思っています。
>
>2.現在の状況
>　=IF(ISERROR(A1),"",IF(A1=0,"",DATE(LEFTB(A1,4),MIDB(A1,5,2),RIGHTB(A1,2))))
>という関数を作ってＤ列に日付か空白を入力しています。
>・これをFor〜Next文で空白""でなければＡ列に貼り付けるということを実施
>　している。

Ａ列の値によりＤ列に値が入り、その値のみをＡ列に貼り付ける
と言う事ですか？
（上の数式はＤ列に入っているわけですよね？）

ちょっと私は混乱してます。
【52553】Re:空白を含むコピー＆ペーストについて
質問  tantan  - 07/11/19(月) 16:53 -
引用なし
パスワード
   じゅんじゅん さん
お付き合いありがとうございます。
もう少し詳しく言うと、

Ａ列に元データがあります。
そこに違うデータベースから持ってきたデータをＣ列に貼り付けてあります。
これを付け合せて、「更新されていたらＡ列に書き込む」ということを
したいと思っています。
ただ、Ｃ列のデータは文字列で20070221と入力されているか、古いデータで
もう無くなってしまい#N/Aとなっているので、以前書きました関数でＤ列に日付か""を入れています。
このＤ列とＡ列と比較させて、Ｄ列が""ならそのままＤ列に貼り付けておいて
そうでなければＡ列に貼り付け、としました。

何分素人なもので、そもそも関数でＤ列に日付変換する必要があったのかどうか、
またFor〜Next文で一行ずつ行なわなければならないかもわかりません。
何かよい方法があったらお教え願います。
【52554】Re:空白を含むコピー＆ペーストについて
発言  ぴこ  - 07/11/19(月) 17:19 -
引用なし
パスワード
   ▼じゅんじゅん さん：
はじめまして。いつも勉強させていただいています。
>ちょっと私は混乱してます。
同感でレスの付くの待っているのですが、どうにも気になって…。

アクセスか何かでデーターを取り込んだ後処理をしていて、と考えました。
Sub tesi()
　For i = 1 To 1500
　　If Range("A" & i) <> "" Then
　　　　y = Left(Cells(i, 3), 4)
　　　　m = Mid(Cells(i, 3), 5, 2)
　　　　d = Right(Cells(i, 3), 2)
　　　 Range("A" & i) = y & "/" & m & "/" & d
　　End If
　Next i
End Sub
ただ単純にこれだけの様な？違っていたらすみません。
【52556】Re:空白を含むコピー＆ペーストについて
発言  じゅんじゅん  - 07/11/19(月) 20:26 -
引用なし
パスワード
   Ｃ列に#NAがあったら何もしない。
Ａ列に値があったら変更しない。
Ａ列が空白だったら、Ｃ列の文字列を使用し日付データにしてＡ列に入れる。

Sub test()
Dim v, vv
Dim i As Long

vv = Range("C1", Cells(Rows.Count, 3).End(xlUp))
v = Range("A1", Cells(UBound(vv, 1), 1))
For i = 1 To UBound(vv, 1)
　　 If Not IsError(vv(i, 1)) Then
　　　　　　v(i, 1) = IIf(v(i, 1) <> Empty, v(i, 1), _
　　　　　　　　　　　DateSerial(CInt(Mid(vv(i, 1), 1, 4)), _
　　　　　　　　　　　　　　　　 CInt(Mid(vv(i, 1), 5, 2)), _
　　　　　　　　　　　　　　　　 CInt(Mid(vv(i, 1), 7, 2))))
　　 End If
Next
Range("A:A").ClearContents
Range("A1").Resize(UBound(v, 1)).Value = v
End Sub
と言う事なのでしょうか？
【52557】Re:空白を含むコピー＆ペーストについて
質問  tantan  - 07/11/19(月) 20:51 -
引用なし
パスワード
   ▼ぴこ さん：
ありがとうございます。
知識が無さ過ぎてゴメンナサイ。。
ぴこさんの言うとおり、自分で難しくしてしまっていた様です。

ぴこさんのコードでできました。
ただ、Ｃ列のデータは文字列で20070221と入力されているか、古いデータで
もう無くなっている箇所は#N/Aとなっているので、その箇所でエラーとなって
しまいます。

どのように回避したらよいのでしょうか？
もう少しお付き合い願います。

>Sub tesi()
>　For i = 1 To 1500
>　　If Range("A" & i) <> "" Then
>　　　　y = Left(Cells(i, 3), 4)
>　　　　m = Mid(Cells(i, 3), 5, 2)
>　　　　d = Right(Cells(i, 3), 2)
>　　　 Range("A" & i) = y & "/" & m & "/" & d
>　　End If
>　Next i
>End Sub
【52558】Re:空白を含むコピー＆ペーストについて
質問  tantan  - 07/11/19(月) 21:07 -
引用なし
パスワード
   ▼じゅんじゅん さん：

ありがとうございます。ぴこさんのコードをためしていたら
じゅんじゅんさんからも回答を頂いていたことに気づきませんでした。

>Ｃ列に#NAがあったら何もしない。
>Ａ列に値があったら変更しない。
>Ａ列が空白だったら、Ｃ列の文字列を使用し日付データにしてＡ列に入れる。

まさにそのとおりです！！

コードを試させていただきました。

>Sub test()
> Dim v, vv
> Dim i As Long
>
> vv = Range("C1", Cells(Rows.Count, 3).End(xlUp))
> v = Range("A1", Cells(UBound(vv, 1), 1))
> For i = 1 To UBound(vv, 1)
>　　 If Not IsError(vv(i, 1)) Then
>　　　　　　v(i, 1) = IIf(v(i, 1) <> Empty, v(i, 1), _
>　　　　　　　　　　　DateSerial(CInt(Mid(vv(i, 1), 1, 4)), _
>　　　　　　　　　　　　　　　　 CInt(Mid(vv(i, 1), 5, 2)), _
>　　　　　　　　　　　　　　　　 CInt(Mid(vv(i, 1), 7, 2))))
>　　 End If
> Next
> Range("A:A").ClearContents
> Range("A1").Resize(UBound(v, 1)).Value = v
>End Sub


v(i, 1) = IIf(v(i, 1) <> Empty, ･････････
のとこでエラーとなってしまいました。
このコードは自分には少しレベルが高いので、原因解読＆TESTに時間が
かかりそうです。
行いたいことは、じゅんじゅんさんのおっしゃる通りなのでこのコードをもう少し
勉強したいと思います。ありがとうございます。
とりあえず、報告まで。。
【52559】Re:空白を含むコピー＆ペーストについて
発言  じゅんじゅん  - 07/11/19(月) 22:18 -
引用なし
パスワード
   ▼tantan さん：
>▼じゅんじゅん さん：

>v(i, 1) = IIf(v(i, 1) <> Empty, ･････････
>のとこでエラーとなってしまいました。
>このコードは自分には少しレベルが高いので、原因解読＆TESTに時間が
>かかりそうです。
>行いたいことは、じゅんじゅんさんのおっしゃる通りなのでこのコードをもう少し
>勉強したいと思います。ありがとうございます。
>とりあえず、報告まで。。

Emptyではなく
v(i, 1) = IIf(v(i, 1) <> ""
の方がいいかな？
【52572】Re:空白を含むコピー＆ペーストについて
回答  ぴこ  - 07/11/20(火) 11:00 -
引用なし
パスワード
   ▼tantan さん：

返事が遅くなりすみませんでした。
>もう無くなっている箇所は#N/Aとなっているので、その箇所でエラーとなって
>しまいます
すっとこどっこいでした。すみません。(≧ω≦)ｂ
じゅんじゅんさんのコードのほうが高度で正確だと思いますが、

Sub test()
Dim y As String
Dim m As String
Dim d As String

For i = 1 To 1500
　If Not IsError(Range("C" & i)) Then
　　If Range("A" & i) = "" And Range("C" & i) <> "" Then
　　　　y = Left(Cells(i, 3), 4)
　　　　m = Mid(Cells(i, 3), 5, 2)
　　　　d = Right(Cells(i, 3), 2)
　　　 Range("A" & i) = y & "/" & m & "/" & d
　　End If
　End If
Next i

End Sub
今度は作動テストしました。

じゅんじゅんさんのコードから　IsError　を参考にしましたが　UBound　は私には高度すぎてヘルプを理解する為のヘルプが必要です。初心者でも解り易いヘルプがあればﾄﾎﾎ。(~_~;)
【52599】Re:空白を含むコピー＆ペーストについて
お礼  tantan  - 07/11/21(水) 0:23 -
引用なし
パスワード
   ▼ぴこ さん：
ありがとうございます。
おかげさまでできました(^o^)丿
コピー＆ペーストなんてやっていたら、そりゃ時間かかりますよね。
マクロの作り方に目からうろこです。
ありがとうございました。


▼じゅんじゅん さん：
コードのどこが引っかかっているかも、分からない素人ですみません。。。
解読するくらいの知識は早く見に着けたいと思いました。
今後も何かありましたら、よろしくお願いします。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5104 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free