コメント一覧 (11)

1. • 1. Ada
   • 2016年05月30日 08:07
   • 初めてコメントさせていただきます。
     
     Excel2011forMAC(OSX10.10.5)で作った商品の検索用.xlsmファイルが、Windows環境のパソコン(Windows7-Excel2013、Windows8-Excel2010)で開こうとする「実行エラー"13"」ポップが出現します。
     デバッグをすると、下記の
     -------------------------------------
     Private Sub Worksheet_Change(ByVal Target As Range)
     Dim kensakukoumoku As String
     
     With Target
     If Target = Range("c3") Then
     Worksheets("diagram").Range(Cells(4, 1), Cells(36, 32)).Interior.ColorIndex = 0
     Worksheets("diagram").Range("c3:p3").Interior.Color = RGB(240, 240, 240)
     
     kensakukoumoku = Target.Value
     If kensakukoumoku = "" Then
     MsgBox "input a medecine"
     Else
     kensaku kensakukoumoku
     End If
     End If
     End With
     
     End Sub
     -----------------------
     「If Target = Range("c3") Then」の箇所が黄色く表示されます。
     デバッグをせずに、ポップを閉じて、作業を行うと問題なく検索もでき、検索結果も表示されます。
     
     ファイルを閉じようとするときには「メモリが足りません」というエラー表示も発生します。
     
     これらのエラー表示はMacPC上(ファイルを作ったPCだけでなく、他のMacPCでも)では発生しないので、原因が突き止められず頭を抱えています。
     
     Macで作った.xlsmファイルは、Windowsで動かすときに気をつける点とかありますでしょうか？
     
     ExcelVBAを触ってまだ半年にもならず、エラー時の対処に関しての知識や経験も全然足りない者なので、ご意見をいただけたら幸いです。
     よろしく御願いいたします。
2. • 2. 筆者
   • 2016年05月30日 17:14
   • Ada さん、コメントありがとうございます。
     
     同じ環境が用意できないため、お役に立てないかもしれません。
     
     エクセルVBAで　実行時エラー'13': は「型が一致しません」というエラーです。
     黄色く表示される「If Target = Range("c3") Then」の箇所で「型」といえば、
     「Target」と「Range("C3")」の２つが該当します。
     
     通常、Rangeオブジェクトは　.Value　が省略できるため問題ないはずですが、
     何らかの理由で比較する「２つの型が合わない」ようです。
     （With Target　〜　End With　が悪さをする可能性も…）
     
     　　If Target.Value = Range(“C3").Value Then
     
     への修正を　まずは　試してみてください！
     With Target　〜　End With　は、利用部分のみで固めた方が良いですね。
     必要なければ、削除しましょう。
     
     「マクロ（VBA）」を含んだExcelファイルにおいて、マイクロソフトは「Win.版とMac版の互換性」を一切保証していません。
     Mac版で作成したVBAコードを関数単位でWin.版に貼り付けると、動作する可能性が高いですが、「逆」は動作しないことがよくあります。
     
     以下は、「Office2016 for Mac」で作成したテストコードです。
     「Office2016 for Win.」で作成した「.xlsm」ファイルにテストコードを貼り付けましたが、実行時エラーは出ませんでした。
     CStr(Target.Value)　は　VBAの暗黙の型変換に頼らず、自ら「型変換」関数を利用しています。
     Inputbox で受け取った値を数値として利用したい場合も、「型チェック」後に「型変換」関数を利用します。
     
     Private Sub Worksheet_Change(ByVal Target As Range)
     　　Dim kensakukoumoku As String
     
     　　If Target.Value = Range(“C3").Value Then
     　　　　kensakukoumoku = CStr(Target.Value)
     
     　　　　If kensakukoumoku = "" Then
     　　　　　　MsgBox "input a médecine"
     　　　　Else
     　　　　　　MsgBox "Match !"
     　　　　End If
     
     　　End If
     
     End Sub
     
3. • 3. Ada
   • 2016年05月30日 21:16
   • アタル様、早速のご回答ありがとうございます。
     
     片方では問題のないコードでもOSが変われば、悪さをする場合があるんですね。
     奥が深すぎて頭が痛くなりそうです...。
     
     アタル様のご助言を参考に問題の箇所を修正して、確認してみたいと思います。
     また分からないところが出てきましたら、図々しいとは思いますがご助言いただければ幸いです。
     
4. • 4. Ada
   • 2016年06月06日 22:13
   • アタル様、度々のコメント失礼いたします。
     前回教えてもらった実行エラー13の修正ですが、教えてもらったコードやアドバイスを参考に、さらに
     
     If Target.Value = Range(“C3").Value Then
     の箇所を
     If Intersect(Target, Range("c3")) Is Nothing Then
     
     に変更したところ、より望む形で無事解決することができました。
     ありがとうございます。
     
     ただ、同xlsmファイルをWindowsPCで起動させたところ、閉じようとしたときに「実行エラー7　メモリが足りません」と言うポップウィンドウが表示されるという現象の原因がわかりません。
     同ファイルをMacで開いてもそのような現象は出ず、MacとWindowsの互換性の問題かと思って、WindowsPCで新たにxlsmファイルを作ってもこの現象は発生します。
     ちなみに、「実行エラー7」が出たと言っても、そのポップウィンドウを閉じれば、普通に保存も終了もすることはできます。
     このような現象は何が原因で起こるのか、ご意見、解決策をお教えいただけたら幸いです。
     
     ずうずうしいお願いを何度もしてしまい申し訳ありませんが、よろしくお願い致します。
5. • 5. 筆者
   • 2016年06月07日 16:23
   • Adaさん、こんにちは。
     閉じる際に、「エラー７」が出るのですね…
     
     Mac環境に比べ　Windows環境の物理メモリが極端に少なくて発生している可能性は少ないと思いますが、Excelファイルサイズが小さい時でも発生するかどうか調べてみるのも…
     
     
     　　以降、VBAコードが原因で「実行エラー7」が出る原因を考えてみました！
     　　（検索して出てきた内容ばかりなら、ごめんなさい）
     
     [1] WorkBook_BeforeClose()　イベントプロシージャ記述等の問題！
     　Auto_Close()　、　Workbook_BeforeSave() イベントプロシージャも念のため、確認してください。
     
     [2] １つのモジュールやプロシージャ内に、大量のVBAコードを記述しすぎ！
     　Win.版の場合、モジュールやプロシージャには、Excel内部で64Kの領域が確保されているそうです。
     　それを超えるような、巨大なプロシージャなどを作成すると「メモリが足りません」と怒られることがあります。
     　私も何回か体験しましたが、モジュールやプロシージャを分割すればＯＫです！
     
     [3] Public変数も使用できる領域に制限がありますので、異様に大量なPublic変数を定義していると、このエラーが起こる可能性が！
     
     
     　　ちょっと判断が難しいかもしれませんので、　ataruchi7777@gmail.com　あてで
     　　メール本文に「記述した全VBAコード」を貼って送って頂いても　大丈夫です！
     　　全ての Sub や Fucntion 等のVBAコード（Public変数定義なども）をお願いします。
     　　（差し支えあるような箇所は、部分的に省略ください）
     　　
     「原因把握」できないかもしれませんが、気付くことがあるかもしれませんので…
     
6. • 6. 守澤
   • 2016年08月14日 14:37
   • 初めまして。通りすがりですがもし良ければ教えてください。
     上記のadaさんの質問は解決されているなら、何が原因で、どのようにすれば解決したのか教えて頂きたいです。
     
     私ももう半年くらい前にMS窓口と1時間以上問答し合って結局できないという結論に至って苦渋した経験があります。それ以降MacＯｆｆｉｃｅは基本的にデータを見るくらいで触らないようにしています。
     
     互換性を担保しないのはＭＳの勝手ですが、基本的で平易なプログラムに互換性がないのはＭＳのやる気なさしか感じ得ません。なのでＭａｃＶＢＡは他人に勧めないのがベターじゃないかと感じます。
     （なぜ不完全な状態でＭＳが提供をしたのかも理解できないです）
     
     愚痴になってしまいましたが私が求めるのは、adaさんのようなトライ＆エラーと解決法です。ＭＳは自分で知っていてもそれを公開することを拒んでいるので、１つでも多くの事例を知りたいのです。なので私もMacVBAは使えるようにはなりたいというのが希望です。
     よろしくお願いします。
7. • 7. 筆者
   • 2016年08月15日 00:36
   • 守澤さん、コメントありがとうございます！
     今回はMSの問題ではなく、VBAコードの記述ミスが原因でした。
     
     Worksheet_Change() イベントコードを記述したワークシート名を「SheetA」とします。
     
     Private Sub Workbook_BeforeClose(Cancel As Boolean)
     　　Worksheets("SheetA").Cells.Clear
     End Sub
     
     上記VBAコードで、全セル（シート全体）が引数の「Rangeオブジェクト」として、Worksheet_Change() イベントが発生
     
     （PCのメモリ環境にも左右されるが）Worksheet_Change() イベントコード記述が完璧でないと、メモリ不足に陥る可能性あり
     
     Private Sub Workbook_BeforeClose(Cancel As Boolean)
     　　Application.EnableEvents = False
     　　　　Worksheets("SheetA").Cells.Clear
     　　Application.EnableEvents = True
     End Sub
     
     手っ取り早くエラーが出ないようにするには、「Cells.Clear」メソッドを　イベントの発生を抑制・再開するコードで囲めば良い。
     
     Worksheet_Change() イベントコード記述にて対処するなら、メモリ量も考慮して以下の様なコーディングが必要。
     
     …続く…
     
8. • 8. 筆者
   • 2016年08月15日 00:40
   • 「複数のセルが同時に変更」された時に、
     
     For Each aRange In Target
     　　（セル毎に行う処理）
     Next aRange
     　　
     にて、変更された全セル分　繰り返し処理を行う場合は
     時間やメモリを消費する可能性を考慮し、
     「Sub」の先頭で　制限を設けるのも　良いでしょう。
     （以下は、101セル以上同時変更された場合は、処理しない例）
     大量セルの Copy & Paste を行った場合など…
     
     If Target.CountLarge > 100 Then
     　　Exit Sub
     End If
     
     ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
     　「Target.CountLarge」利用の理由
     ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
     「Range.Count」プロパティはLong型で　Excel2007 で扱える全セル数を超えるため、
     「オーバーフロー」エラーが発生する可能性があります！
     
     そのため、ワークシートの最大サイズ (17,179,869,184 セル) までの範囲を
     処理できるよう（Variant型らしいですが…）
     「Range.CountLarge」プロパティが追加されたとのこと！
     
     「Target.CountLarge」と記述し、「未定義みたいなエラー」になった場合は
     「Target.Count」に変更してください。
     （Excelの古いバージョンだと、「Target.CountLarge」が利用できないためです）
     
     …続く…
9. • 9. 筆者
   • 2016年08月15日 00:47
   • ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
     　(1)「複数のセルが同時に変更」された時、異なる処理を行う場合のコード
     ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
     Private Sub Worksheet_Change(ByVal Target As Range)
     　　Dim aRange As Range
     　　If Target.CountLarge > 1 Then ' 「複数のセルが同時に変更」された時
     　　　　For Each aRange In Target
     　　　　　　' aRange に順番に変更された「セルが１つずつ」格納されるため、
     　　　　　　' 繰り返し　処理する　（aRange.Value でセルごとの値を取得可能）
     　　　　Next aRange
     　　Else　' 「セル１つのみが変更」された時
     　　　　　' Target は単一セルのため、（Target.Value で変更されたセルの値を取得可能）
     　　End If
     End Sub
     
     ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
     　(2)「複数のセルが同時に変更」された時も、セル毎に同じ処理を行う場合
     ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
     Private Sub Worksheet_Change(ByVal Target As Range)
     　　Dim aRange As Range
     　　' 以下は　100セル同時変更まで　処理する場合
     　　If Target.CountLarge > 100 Then
     　　　　Exit Sub
     　　End If
     
     　　For Each 　aRange In Target
     　　　　' aRange に順番に変更された「セルが１つずつ」格納されるため、
     　　　　' 繰り返し　処理する　（aRange.Value でセルごとの値を取得可能）
     　　Next aRange
     End Sub
     
     …続く…
     
     
10. • 10. 筆者
    • 2016年08月15日 00:49
    • ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
      　(3)「複数のセルが同時に変更」された時にイベント処理を行わない場合
      ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
      Private Sub Worksheet_Change(ByVal Target As Range)
      　　If Target.CountLarge > 1 Then ' 「複数のセルが同時に変更」された時
      　　　　Exit Sub
      　　Else ' 「セル１つのみが変更」された時
      　　　　' Target は単一セルのため、（Target.Value で変更されたセルの値を取得可能）
      　　End If
      End Sub
      
      きちんと対処するには、「上記３パターンから選択する必要がある」と
      ブログ記事にも加筆予定ですが、仕事が忙しくてまだ直していません（汗）
      
      …終了…
      
11. • 11. 筆者
    • 2021年10月30日 13:18
    • AppleScriptTask を利用し、以下の３機能を VBA から利用可能に！
      
      [1] 子フォルダを含め、フォルダ内の全ファイル名の取得
      [2] テキストファイルの入出力
      [3] PDFファイル内の全テキストを抽出
      
      　https://mac-excel-vba.blogspot.com/search/label/AppleScriptTask　
      
      新ブログは 通称 Cocoa AppleScript と呼ばれる ASOC ( AppleScript Objective-C ) にも手をつけています！