Excel VBA質問箱 IV

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

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


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

17203 / 76732

←次へ　｜　前へ→


	【64986】Re:一覧表のﾃﾞｰﾀを別ｼｰﾄに転記したい。

Hirofumi - 10/3/31(水) 17:31 -


	引用なし

	パスワード

>　一覧表というｼｰﾄ（Sheet1）に下記のﾃﾞｰﾀを貼り付けてました。
>これをｼｰﾄﾓｼﾞｭｰﾙと言うんですかね?
>詳しくないのですいません・・・

Upされたコードで試しましたが、そのようなエラーは出ませんでした
一応、シートモジュールに記述しても動く様には書いて有るはずなのですが？
本来はVBE画面で、「挿入」→「標準モジュール」で追加される標準モジュールに
記述する事を想定して書いて有ります
因って、其処に移して下さい

ただ、エラーの原因は解りません、と言うよりあり得ない事象だと思います？
前のレスに記述した様に、エラーの内容からすると、多分

1、
　　'元々のデータ列数（A列～BM列）
　　Const clngColumns As Long = 65

の記述をマイナスに変更したか？
2、
「lngRows = 0」をDataSortの前に挿入したか？
3、
　　　　If lngRows <= 0 Then
　　　　　　strProm = "データが有りません"
　　　　　　GoTo Wayout
　　　　End If

を削除して、且つB列にデータが無いか？

名のですが、其れを行っている気配も有りません
原因不明です？

其れと、このコードの実行方法はどのように実行していますか？
全てのコードを同じ「標準モジュール」に記述して、
VBEのメニューから「デバッグ」→「VBProjectのコンパイル」をして保存
其れから、Exceの画面に戻り「ツール」→「マクロ」→「マクロ」で
ダイアログを出して、Sample_1を選択し実行として見て下さい

0 hits

▼

【64966】一覧表のﾃﾞｰﾀを別ｼｰﾄに転記したい。 AAA 10/3/30(火) 21:20