Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3130 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【63996】セル内の文字、数字を判定して　それを他の行に移動させたい Ex初心者 10/1/9(土) 11:21 質問[未読]
【63999】Re:セル内の文字、数字を判定して　それを... 超初心者 10/1/9(土) 16:43 発言[未読]
【64039】Re:セル内の文字、数字を判定して　それを... Ex初心者 10/1/12(火) 10:03 発言[未読]
【64049】Re:セル内の文字、数字を判定して　それを... Ex初心者 10/1/13(水) 12:01 お礼[未読]
【64050】今回作ったマクロを特定のシートで1度に実... Ex初心者 10/1/13(水) 16:18 質問[未読]
【64051】Re:今回作ったマクロを特定のシートで1度に... SS 10/1/13(水) 16:55 発言[未読]
【64056】Re:今回作ったマクロを特定のシートで1度に... Ex初心者 10/1/14(木) 9:04 お礼[未読]
【64057】Re:今回作ったマクロを特定のシートで1度に... SS 10/1/14(木) 9:57 回答[未読]
【64058】Re:今回作ったマクロを特定のシートで1度に... Ex初心者 10/1/14(木) 10:16 お礼[未読]
【64061】Re:今回作ったマクロを特定のシートで1度に... Ex初心者 10/1/14(木) 13:32 質問[未読]
【64062】Re:今回作ったマクロを特定のシートで1度に... SS 10/1/14(木) 14:58 発言[未読]
【64063】Re:今回作ったマクロを特定のシートで1度に... Ex初心者 10/1/14(木) 15:55 お礼[未読]
【64064】Re:今回作ったマクロを特定のシートで1度に... Ex初心者 10/1/14(木) 16:38 お礼[未読]
【64070】超初心者様、SS様　ありがとうございました... Ex初心者 10/1/15(金) 16:40 お礼[未読]
【63996】セル内の文字、数字を判定して　それを他...
質問  Ex初心者  - 10/1/9(土) 11:21 -
引用なし
パスワード
   皆様初めまして。
悩んでいたときにここに通りかかりましたので質問させて下さい

いま悩んでいるのがタイトル通りなのですが

例として

B2には、その場所を表す文字が入っており（あいうえお　の5種類を例とします）
そしてB3〜B20にはランダムで数字が入ってます。(1〜100)

B2セルが　あorいorうor　だった場合で
なお且つ
B3〜B20の数字の中で 1or11or20　があった場合

また

B2セルが　え、お　だった場合で
なお且つ
B3〜B20の数字の中で　50or100　があった場合

その数字がある行を30行目から下に移動させ、移動して空欄になった行は削除したいのです

わかりづらい説明で申し訳ありませんが
何かよい知恵がありましたらご協力をお願い致します。
【63999】Re:セル内の文字、数字を判定して　それ...
発言  超初心者  - 10/1/9(土) 16:43 -
引用なし
パスワード
   ▼Ex初心者 さん：
動作を条件に沿ってゴリゴリまわしてみました。

もっとスマートなコードもあるかと思いますが、一応

Sub sub_sampleple()
　　Dim myB2 As Integer
　　Dim myMOVE As Boolean
　　Dim myRow As Long
　　Dim myRowMax As Long
　　Dim myCnt As Long
　　
　　'第一条件の判定
　　Select Case Range("B2").Value
　　　　Case "あ", "い", "う"
　　　　　　myB2 = 1
　　　　Case "え", "お"
　　　　　　myB2 = 2
　　End Select
　　
　　myRow = 3　　　 'B3から
　　myRowMax = 20　 'B20までをチェック
　　Do
　　　　'第二条件の判定
　　　　Select Case Cells(myRow, 2).Value
　　　　　　Case 1, 11, 20
　　　　　　　　myMOVE = (myB2 = 1)
　　　　　　Case 50, 100
　　　　　　　　myMOVE = (myB2 = 2)
　　　　　　Case Else
　　　　　　　　myMOVE = False
　　　　End Select
　　　　
　　　　'移動処理
　　　　If myMOVE Then
　　　　　　Rows(myRow).Cut
　　　　　　Rows(30 + myCnt).Insert Shift:=xlDown '30行目に挿入
　　　　　　Rows(30 - 1).Insert Shift:=xlDown
　　　　　　myCnt = myCnt + 1
　　　　　　myRowMax = myRowMax - 1
　　　　Else
　　　　　　myRow = myRow + 1
　　　　End If
　　Loop Until myRow > myRowMax
　　
End Sub
【64039】Re:セル内の文字、数字を判定して　それ...
発言  Ex初心者  - 10/1/12(火) 10:03 -
引用なし
パスワード
   超初心者様

ご返信ありがとうございます。
またご連絡が遅れて大変申し訳ございません(風邪をこじらせていたもので・・・)

こちらもcase文を使って素人ながらやってみたのですがうまく動作せず・・・
ひとつひとつ意味を理解しつつ参考にさせていただきます！

ありがとうございました！
【64049】Re:セル内の文字、数字を判定して　それ...
お礼  Ex初心者  - 10/1/13(水) 12:01 -
引用なし
パスワード
   超初心者様

教えていただいたコードをいろいろ組み替えてみたところ
目的の物が無事に完成いたしました。

どうもありがとうございました！
【64050】今回作ったマクロを特定のシートで1度に...
質問  Ex初心者  - 10/1/13(水) 16:18 -
引用なし
パスワード
   度々の質問失礼します。

超初心者様のお陰で、マクロは無事に完成したのですが
それを複数のシートにて実行したいのですがどうすればいいでしょうか？

シート名は1,2,3・・・40までありましてその後　１〜40までのデータをまとめるシートが用意されている状態です

この1〜40のシートにて一度にマクロを実行させたいのです
手動で40シート分でもいいのですが、できればスマートにしたいなぁと思ったもので・・・

中身は、超初心者さんのものを使わせて頂きました！

Sub sub_sampleple()
　　Dim myB2 As Integer
　　Dim myMOVE As Boolean
　　Dim myRow As Long
　　Dim myRowMax As Long
　　Dim myCnt As Long
　　
　　'第一条件の判定
　　Select Case Range("B2").Value
　　　　Case "あ", "い", "う"
　　　　　　myB2 = 1
　　　　Case "え", "お"
　　　　　　myB2 = 2
　　End Select
　　
　　myRow = 3　　　 'B3から
　　myRowMax = 20　 'B20までをチェック
　　Do
　　　　'第二条件の判定
　　　　Select Case Cells(myRow, 2).Value
　　　　　　Case 1, 11, 20
　　　　　　　　myMOVE = (myB2 = 1)
　　　　　　Case 50, 100
　　　　　　　　myMOVE = (myB2 = 2)
　　　　　　Case Else
　　　　　　　　myMOVE = False
　　　　End Select
　　　　
　　　　'移動処理
　　　　If myMOVE Then
　　　　　　Rows(myRow).Cut
　　　　　　Rows(30 + myCnt).Insert Shift:=xlDown '30行目に挿入
　　　　　　Rows(30 - 1).Insert Shift:=xlDown
　　　　　　myCnt = myCnt + 1
　　　　　　myRowMax = myRowMax - 1
　　　　Else
　　　　　　myRow = myRow + 1
　　　　End If
　　Loop Until myRow > myRowMax
　　
End Sub

これを1〜40までのシート内を一気に実行は可能なのでしょうか？

Dim mySheet As Worksheet
For Each mySheet In Worksheets
〜
内
容
〜
Next mySheet

これを改良する感じなのでしょうか？
度々申し訳ありませんが、再度お知恵をお貸しください
【64051】Re:今回作ったマクロを特定のシートで1度...
発言  SS  - 10/1/13(水) 16:55 -
引用なし
パスワード
   ▼Ex初心者 さん：
こんにちは、初めての機能を使うときはそれ単独で動作確認をすると
良く内容が理解できると思います。Msgboxの利用が有効かも
新しいBOOKの標準モジュールに以下のマクロを貼り付け実行してから
各シートのA1セルを確認してみてください。
Sub test()
　　Dim mySheet As Worksheet
　　For Each mySheet In Worksheets
'>〜
'>内
　　　　mySheet.Range("A1").Value = mySheet.Name
'>容
'>〜
　　Next mySheet
End Sub

>度々の質問失礼します。
>
>超初心者様のお陰で、マクロは無事に完成したのですが
>それを複数のシートにて実行したいのですがどうすればいいでしょうか？
>
>シート名は1,2,3・・・40までありましてその後　１〜40までのデータをまとめるシートが用意されている状態です
>
>この1〜40のシートにて一度にマクロを実行させたいのです
>手動で40シート分でもいいのですが、できればスマートにしたいなぁと思ったもので・・・
>
>中身は、超初心者さんのものを使わせて頂きました！
>
>Sub sub_sampleple()
>　　Dim myB2 As Integer
>　　Dim myMOVE As Boolean
>　　Dim myRow As Long
>　　Dim myRowMax As Long
>　　Dim myCnt As Long
>　　
>　　'第一条件の判定
>　　Select Case Range("B2").Value
>　　　　Case "あ", "い", "う"
>　　　　　　myB2 = 1
>　　　　Case "え", "お"
>　　　　　　myB2 = 2
>　　End Select
>　　
>　　myRow = 3　　　 'B3から
>　　myRowMax = 20　 'B20までをチェック
>　　Do
>　　　　'第二条件の判定
>　　　　Select Case Cells(myRow, 2).Value
>　　　　　　Case 1, 11, 20
>　　　　　　　　myMOVE = (myB2 = 1)
>　　　　　　Case 50, 100
>　　　　　　　　myMOVE = (myB2 = 2)
>　　　　　　Case Else
>　　　　　　　　myMOVE = False
>　　　　End Select
>　　　　
>　　　　'移動処理
>　　　　If myMOVE Then
>　　　　　　Rows(myRow).Cut
>　　　　　　Rows(30 + myCnt).Insert Shift:=xlDown '30行目に挿入
>　　　　　　Rows(30 - 1).Insert Shift:=xlDown
>　　　　　　myCnt = myCnt + 1
>　　　　　　myRowMax = myRowMax - 1
>　　　　Else
>　　　　　　myRow = myRow + 1
>　　　　End If
>　　Loop Until myRow > myRowMax
>　　
>End Sub
>
>これを1〜40までのシート内を一気に実行は可能なのでしょうか？
>
>Dim mySheet As Worksheet
>For Each mySheet In Worksheets
>〜
>内
>容
>〜
>Next mySheet
>
>これを改良する感じなのでしょうか？
>度々申し訳ありませんが、再度お知恵をお貸しください
【64056】Re:今回作ったマクロを特定のシートで1度...
お礼  Ex初心者  - 10/1/14(木) 9:04 -
引用なし
パスワード
   ▼SS さん：
>▼Ex初心者 さん：
>こんにちは、初めての機能を使うときはそれ単独で動作確認をすると
>良く内容が理解できると思います。Msgboxの利用が有効かも
>新しいBOOKの標準モジュールに以下のマクロを貼り付け実行してから
>各シートのA1セルを確認してみてください。
>Sub test()
>　　Dim mySheet As Worksheet
>　　For Each mySheet In Worksheets
>'>〜
>'>内
>　　　　mySheet.Range("A1").Value = mySheet.Name
>'>容
>'>〜
>　　Next mySheet
>End Sub

SS様

ご返答＋アドバイスありがとうございます！
動作確認についてはデバックで追いかけてみたりしつつどういう動作をするのかを随時確認しながらやっている状態です

？な部分は調べつつで、わからないことも多いですが・・・

助言ありがとうございました！
【64057】Re:今回作ったマクロを特定のシートで1度...
回答  SS  - 10/1/14(木) 9:57 -
引用なし
パスワード
   ▼Ex初心者 さん：

こんにちは
sub_samplepleに少し追記してtestから呼び出す方法を作ってみました。
sub_samplepleは特定シートを対象にしていたのでWorkSheet指定していなかったのをFor Eachで取得したmySheetが反映されるようにしました。
変数名は適当なものが思いつかなかったので好きなように置き換えて下さい。
まとめ用のシートの行入れ替えがされないようにする必要があります。
今回は一つにまとめても良いのかも知れませんが、シート種類による処理の手法が複数になる場合を考慮すると呼び出す形のが便利かなと考えました。

Sub test()
　　Dim mySheet As Worksheet
　　For Each mySheet In Worksheets
　　　　If mySheet.Name = "まとめシート" Then
　　　　　　MsgBox "処理を飛ばします"
　　　　Else
　　　　　　Call sub_sampleple(mySheet)
　　　　End If
　　Next mySheet
End Sub

Sub sub_sampleple(MS As Worksheet)
　　Dim myB2 As Integer
　　Dim myMOVE As Boolean
　　Dim myRow As Long
　　Dim myRowMax As Long
　　Dim myCnt As Long
　
　　'第一条件の判定
　　Select Case MS.Range("B2").Value
　　　　Case "あ", "い", "う"
　　　　　　myB2 = 1
　　　　Case "え", "お"
　　　　　　myB2 = 2
　　End Select
　
　　myRow = 3　　　 'B3から
　　myRowMax = 20　 'B20までをチェック
　　Do
　　　　'第二条件の判定
　　　　Select Case MS.Cells(myRow, 2).Value
　　　　　　Case 1, 11, 20
　　　　　　　　myMOVE = (myB2 = 1)
　　　　　　Case 50, 100
　　　　　　　　myMOVE = (myB2 = 2)
　　　　　　Case Else
　　　　　　　　myMOVE = False
　　　　End Select
　　
　　　　'移動処理
　　　　If myMOVE Then
　　　　　　MS.Rows(myRow).Cut
　　　　　　MS.Rows(30 + myCnt).Insert Shift:=xlDown '30行目に挿入
　　　　　　MS.Rows(30 - 1).Insert Shift:=xlDown
　　　　　　myCnt = myCnt + 1
　　　　　　myRowMax = myRowMax - 1
　　　　Else
　　　　　　myRow = myRow + 1
　　　　End If
　　Loop Until myRow > myRowMax
　
End Sub

>▼SS さん：
>>▼Ex初心者 さん：
>>こんにちは、初めての機能を使うときはそれ単独で動作確認をすると
>>良く内容が理解できると思います。Msgboxの利用が有効かも
>>新しいBOOKの標準モジュールに以下のマクロを貼り付け実行してから
>>各シートのA1セルを確認してみてください。
>>Sub test()
>>　　Dim mySheet As Worksheet
>>　　For Each mySheet In Worksheets
>>'>〜
>>'>内
>>　　　　mySheet.Range("A1").Value = mySheet.Name
>>'>容
>>'>〜
>>　　Next mySheet
>>End Sub
>
>SS様
>
>ご返答＋アドバイスありがとうございます！
>動作確認についてはデバックで追いかけてみたりしつつどういう動作をするのかを随時確認しながらやっている状態です
>
>？な部分は調べつつで、わからないことも多いですが・・・
>
>助言ありがとうございました！
【64058】Re:今回作ったマクロを特定のシートで1度...
お礼  Ex初心者  - 10/1/14(木) 10:16 -
引用なし
パスワード
   ▼SS様

返信ありがとうございます
なるほど。シート用をあらかじめ作っておいて
それが対応したシートであれば、必要に応じて呼び出す

といった感じでしょうか？(せっかく書いていただいてるのに、まだよく理解できてなくてすみませんorz)

ご助言ありがとうございます！
早速今の仕事が終わりましたら、組み込んで動作を一つ一つ追って確認をしていきたいと思います

ありがとうございました！


>▼Ex初心者 さん：
>
>こんにちは
>sub_samplepleに少し追記してtestから呼び出す方法を作ってみました。
>sub_samplepleは特定シートを対象にしていたのでWorkSheet指定していなかったのをFor Eachで取得したmySheetが反映されるようにしました。
>変数名は適当なものが思いつかなかったので好きなように置き換えて下さい。
>まとめ用のシートの行入れ替えがされないようにする必要があります。
>今回は一つにまとめても良いのかも知れませんが、シート種類による処理の手法が複数になる場合を考慮すると呼び出す形のが便利かなと考えました。
>
>Sub test()
>　　Dim mySheet As Worksheet
>　　For Each mySheet In Worksheets
>　　　　If mySheet.Name = "まとめシート" Then
>　　　　　　MsgBox "処理を飛ばします"
>　　　　Else
>　　　　　　Call sub_sampleple(mySheet)
>　　　　End If
>　　Next mySheet
>End Sub
>
>Sub sub_sampleple(MS As Worksheet)
>　　Dim myB2 As Integer
>　　Dim myMOVE As Boolean
>　　Dim myRow As Long
>　　Dim myRowMax As Long
>　　Dim myCnt As Long
>　
>　　'第一条件の判定
>　　Select Case MS.Range("B2").Value
>　　　　Case "あ", "い", "う"
>　　　　　　myB2 = 1
>　　　　Case "え", "お"
>　　　　　　myB2 = 2
>　　End Select
>　
>　　myRow = 3　　　 'B3から
>　　myRowMax = 20　 'B20までをチェック
>　　Do
>　　　　'第二条件の判定
>　　　　Select Case MS.Cells(myRow, 2).Value
>　　　　　　Case 1, 11, 20
>　　　　　　　　myMOVE = (myB2 = 1)
>　　　　　　Case 50, 100
>　　　　　　　　myMOVE = (myB2 = 2)
>　　　　　　Case Else
>　　　　　　　　myMOVE = False
>　　　　End Select
>　　
>　　　　'移動処理
>　　　　If myMOVE Then
>　　　　　　MS.Rows(myRow).Cut
>　　　　　　MS.Rows(30 + myCnt).Insert Shift:=xlDown '30行目に挿入
>　　　　　　MS.Rows(30 - 1).Insert Shift:=xlDown
>　　　　　　myCnt = myCnt + 1
>　　　　　　myRowMax = myRowMax - 1
>　　　　Else
>　　　　　　myRow = myRow + 1
>　　　　End If
>　　Loop Until myRow > myRowMax
>　
>End Sub
【64061】Re:今回作ったマクロを特定のシートで1度...
質問  Ex初心者  - 10/1/14(木) 13:32 -
引用なし
パスワード
   ▼SS様

先ほどはご助言ありがとうございます。
あれから一度試してみまして、SS様のものを参考(ほとんど真似てますが・・・)にさせていただき、こちらの条件に合うように作ってみました(内容は引き続き超初心者様のものを使用させて頂いております！)

下記のものを実行したところ、デバックで追って見るとちゃんと機能しているのですが
全作業終了後、他のシートを見てみると並び替えも移動もされていない状態でした・・・

ただ反映されてないだけなのかな？と更新もしてみましたが　中身は変化なく、どうやらマクロが反映されていないようです・・・

度々の質問、申し訳ありませんが
ここが違う！というような場所があれば是非ご指摘をお願いたします！

Sub test()

　　Dim mySheet As Worksheet
　　For Each mySheet In Worksheets
　　　　Select Case mySheet.Name
　　　　　　Case 1 To 9, 10 To 19, 20 To 29
　　　　　　　　Call sub_sampleple(mySheet)
　　　　　　Case Else
　　　　　　　　MsgBox "処理を飛ばします"
　　　　End Select
　　Next mySheet

End Sub

Sub sub_sampleple(MS As Worksheet)
　　Dim myB2 As Integer
　　Dim myMOVE As Boolean
　　Dim myRow As Long
　　Dim myRowMax As Long
　　Dim myCnt As Long
　
　　'第一条件の判定
　　Select Case MS.Range("B2").Value
　　　　Case "あ", "い", "う"
　　　　　　myB2 = 1
　　　　Case "え", "お"
　　　　　　myB2 = 2
　　End Select
　
　　myRow = 3　　　 'B3から
　　myRowMax = 20　 'B20までをチェック
　　Do
　　　　'第二条件の判定
　　　　Select Case MS.Cells(myRow, 2).Value
　　　　　　Case 1, 11, 20
　　　　　　　　myMOVE = (myB2 = 1)
　　　　　　Case 50, 100
　　　　　　　　myMOVE = (myB2 = 2)
　　　　　　Case Else
　　　　　　　　myMOVE = False
　　　　End Select
　　
　　　　'移動処理
　　　　If myMOVE Then
　　　　　　MS.Rows(myRow).Cut
　　　　　　MS.Rows(30 + myCnt).Insert Shift:=xlDown '30行目に挿入
　　　　　　MS.Rows(30 - 1).Insert Shift:=xlDown
　　　　　　myCnt = myCnt + 1
　　　　　　myRowMax = myRowMax - 1
　　　　Else
　　　　　　myRow = myRow + 1
　　　　End If
　　Loop Until myRow > myRowMax
　
End Sub
【64062】Re:今回作ったマクロを特定のシートで1度...
発言  SS  - 10/1/14(木) 14:58 -
引用なし
パスワード
   ▼Ex初心者 さん：

こんにちは、提示されたマクロを新規作成したbookの標準モジュールに貼り付けてSheet名を『1』『12』『23』に書換え、実行したところ行の移動されましたよ？
良く分かりませんが
1.複数のbookを開いていてそれが影響（対象bookの指定していない）
2.WorkSheet名が違う　全角/半角　後ろにスペース（これはMsgBoxが表示される）
3.例題に移動条件に合致するものがなかった（これはないですかね^^;）
なんかが原因ですか？ちなみに関係ないとは思いますが私の環境XP＋2003です。
例えば
>　　Loop Until myRow > myRowMax
　　MS.Range("A1").Value = myCnt
>End Sub
とすれば、各ワークシートに処理がされているか、移動処理に入っているかなど
確認できると思います。試してみてください。

>▼SS様
>
>先ほどはご助言ありがとうございます。
>あれから一度試してみまして、SS様のものを参考(ほとんど真似てますが・・・)にさせていただき、こちらの条件に合うように作ってみました(内容は引き続き超初心者様のものを使用させて頂いております！)
>
>下記のものを実行したところ、デバックで追って見るとちゃんと機能しているのですが
>全作業終了後、他のシートを見てみると並び替えも移動もされていない状態でした・・・
>
>ただ反映されてないだけなのかな？と更新もしてみましたが　中身は変化なく、どうやらマクロが反映されていないようです・・・
>
>度々の質問、申し訳ありませんが
>ここが違う！というような場所があれば是非ご指摘をお願いたします！
>
【64063】Re:今回作ったマクロを特定のシートで1度...
お礼  Ex初心者  - 10/1/14(木) 15:55 -
引用なし
パスワード
   ▼SS様

ご返答ありがとうございます。
こちらの環境はXPの2007版です

デバック上ではSS様の言う通り問題なく動作してるんですよね
ただ、シート上では最初に選択しているシート(今回の場合は1となります)以外は、マクロが実行されておらず最初の数値が入力された値のままなのです

確認用コードありがとうございます！
こちらの仕事が終わり次第試してみたいと思います。

ありがとうございました！

>▼Ex初心者 さん：
>
>こんにちは、提示されたマクロを新規作成したbookの標準モジュールに貼り付けてSheet名を『1』『12』『23』に書換え、実行したところ行の移動されましたよ？
>良く分かりませんが
>1.複数のbookを開いていてそれが影響（対象bookの指定していない）
>2.WorkSheet名が違う　全角/半角　後ろにスペース（これはMsgBoxが表示される）
>3.例題に移動条件に合致するものがなかった（これはないですかね^^;）
>なんかが原因ですか？ちなみに関係ないとは思いますが私の環境XP＋2003です。
>例えば
>>　　Loop Until myRow > myRowMax
>　　MS.Range("A1").Value = myCnt
>>End Sub
>とすれば、各ワークシートに処理がされているか、移動処理に入っているかなど
>確認できると思います。試してみてください。
>
>>▼SS様
>>
>>先ほどはご助言ありがとうございます。
>>あれから一度試してみまして、SS様のものを参考(ほとんど真似てますが・・・)にさせていただき、こちらの条件に合うように作ってみました(内容は引き続き超初心者様のものを使用させて頂いております！)
>>
>>下記のものを実行したところ、デバックで追って見るとちゃんと機能しているのですが
>>全作業終了後、他のシートを見てみると並び替えも移動もされていない状態でした・・・
>>
>>ただ反映されてないだけなのかな？と更新もしてみましたが　中身は変化なく、どうやらマクロが反映されていないようです・・・
>>
>>度々の質問、申し訳ありませんが
>>ここが違う！というような場所があれば是非ご指摘をお願いたします！
>>
【64064】Re:今回作ったマクロを特定のシートで1度...
お礼  Ex初心者  - 10/1/14(木) 16:38 -
引用なし
パスワード
   ▼SS様

すみません、ちゃんと動作してるというのは嘘でしたorz

SS様のように新規でファイルを作ってやってみましたところ
移動処理部分での判定がすべて

myMOVE = False

になっているようでして、SS様の言う通り各シートは動いてるようです
(確認用のコードはキチンと動いておりました。感謝です！)

ということは、内容のミスですね・・・もう一度追って見直してみたいと思います
どうしてもわからなかった場合は、またお力をお借りするかもしれませんが
そのときは宜しくお願い致します！

数々の助言ありがとうございました！

>▼Ex初心者 さん：
>
>こんにちは、提示されたマクロを新規作成したbookの標準モジュールに貼り付けてSheet名を『1』『12』『23』に書換え、実行したところ行の移動されましたよ？
>良く分かりませんが
>1.複数のbookを開いていてそれが影響（対象bookの指定していない）
>2.WorkSheet名が違う　全角/半角　後ろにスペース（これはMsgBoxが表示される）
>3.例題に移動条件に合致するものがなかった（これはないですかね^^;）
>なんかが原因ですか？ちなみに関係ないとは思いますが私の環境XP＋2003です。
>例えば
>>　　Loop Until myRow > myRowMax
>　　MS.Range("A1").Value = myCnt
>>End Sub
>とすれば、各ワークシートに処理がされているか、移動処理に入っているかなど
>確認できると思います。試してみてください。
>
>>▼SS様
>>
>>先ほどはご助言ありがとうございます。
>>あれから一度試してみまして、SS様のものを参考(ほとんど真似てますが・・・)にさせていただき、こちらの条件に合うように作ってみました(内容は引き続き超初心者様のものを使用させて頂いております！)
>>
>>下記のものを実行したところ、デバックで追って見るとちゃんと機能しているのですが
>>全作業終了後、他のシートを見てみると並び替えも移動もされていない状態でした・・・
>>
>>ただ反映されてないだけなのかな？と更新もしてみましたが　中身は変化なく、どうやらマクロが反映されていないようです・・・
>>
>>度々の質問、申し訳ありませんが
>>ここが違う！というような場所があれば是非ご指摘をお願いたします！
>>
【64070】超初心者様、SS様　ありがとうございまし...
お礼  Ex初心者  - 10/1/15(金) 16:40 -
引用なし
パスワード
   ▼超、初心者様SS様

あれから、色々いじってみたところ
判定の部分でどうやら重複した部分？(曖昧ですみません)で無限ループしていたようでした
そこを、条件をつけたしてやってみましたところ無事動作しました！！！

これもお二方のご助力のおかげです。
このマクロのお陰で、毎回手動でのデータ移動が無くなりすごく手間が省け時間短縮にかなり役立ちます！

ありがとうございました！！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3130 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free