VBAランタイムエラー13を使用して、変更されたセル値をセルに戻して割り当てます。

エラーが発生した行はエラーです。タイプミスマッチ、ランタイムエラー13はforループ内の行です。何が起こっているのですか？どうすれば避けることができますか？VBAランタイムエラー13を使用して、変更されたセル値をセルに戻して割り当てます。

Workbooks(theFile).Worksheets(1).Columns("G:G").EntireColumn.NumberFormat = "0.00" 

For Each myCell In Columns("G:G") 
    myCell.Value = WorksheetFunction.Trim(WorksheetFunction.Clean(myCell.Value)) 
Next

出典

2012-02-10 Brian

のミスマッチのようなものは、通常、データ型が一致しないことを意味します。テキストや数字でこれをやっていますか？ – Raystafarian

番号。数字には使用できません。 – Brian

'Clean（）'と 'Trim（）'はどちらも数字に作用します。あなたの数字のフォーマットは "0.00"と定義されているので、そのフォーマットにない数字は不一致のエラーになります。 – Raystafarian

はおそらく

For Each myCell In Columns("A:A").Cells 
    myCell.Value = WorksheetFunction.Trim(myCell.Value) 
Next

出典

2012-02-10 16:55:57 elrado

.Cellsありがとう – Brian

VBAランタイムエラー13を使用して、変更されたセル値をセルに戻して割り当てます。

答えて

関連する問題