Ｐａｇｅ 178 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼列の削除について教えてください。 デヤン 02/10/4(金) 15:09 ┗Re:列の削除について教えてください。 Taka-mk2 02/10/4(金) 15:53 ┗Re:列の削除について教えてください。 デヤン 02/10/4(金) 17:26 ┗エラーの内容は・・・？ Taka-mk2 02/10/4(金) 17:35 ┗Re:エラーの内容は・・・？ デヤン 02/10/7(月) 10:22 ┣Help! Taka-mk2 02/10/7(月) 12:31 ┃ ┗Re:Help! デヤン 02/10/7(月) 13:12 ┗Re:エラーの内容は・・・？...おそらくFAQ りん 02/10/7(月) 17:14 ┗Re:エラーの内容は・・・？...おそらくFAQ デヤン 02/10/8(火) 13:38 ─────────────────────────────────────── ■題名 ： 列の削除について教えてください。 ■名前 ： デヤン ■日付 ： 02/10/4(金) 15:09 -------------------------------------------------------------------------
| こんにちは。まだＶＢＡを始めて１ヶ月もたってない初心者で、 簡単な質問かもしれませんが、列の削除についての質問があります。 Ｂｏｏｋ１のコマンドボタンを押し、 Ｂｏｏｋ２の列を削除する方法を教えてください。 以下の様に作ってみたのですが全く動かないので教えてください。 Private Sub CommandButton1_Click() Workbooks("Book2.xls").Activate Sheets("sheet1").Select ActiveSheet.Columns(F).Delete Shift:=xlToLeft End Sub |
| こんにちは！ 仕事の忙しい日常から！ 以下で上手くいきませんか？ 対象のBookはBook3です。 Book3かBook3.xlsかで上手くいったりいかなかったりすることもありますので。 Private Sub CommandButton1_Click() On Error GoTo CommandButton1_Click_ERR: Workbooks("Book3").Worksheets("Sheet1").Cells(1, 1).EntireColumn.Delete MsgBox "OK!" Exit Sub CommandButton1_Click_ERR: MsgBox Err.Description End Sub いじょ、ご参考になればッ。 |
| Taka-mk2さん、こんにちは。 教えていただきありがとうございます。 さっそくやってみたとこ・・・。 エラーになってしました。何故でしょう？ Book3の名前を削除したいBookの名前にすれば いいのですよね？ う〜ん、解からないです。難しいですね・・・。 |
| 夕方の東京から。 ちょっと蒸し暑いです。 上手くいきませんでしたか・・・。 エラーの内容はなんだったでしょうか？ うちでは上手くいったのですが。 ちなみに私の環境はExcel2000です。 ひょっとして別エクセルで立ち上げたBookのシートを 削除しようとしているのですか？ いじょうっす。 |
| Taka-mk2さん、おはようございます。 エラーの内容は 「RangeクラスのDeleteメソッドが失敗しました。」 と出て、以下のソースがエラー対象のようです。 Workbooks("Book2.xls").Worksheets("Sheet1"). Cells(1, 1).EntireColumn.Delete >ちなみに私の環境はExcel2000です。 私の環境は、Ｅｘｃｅｌ９７です。 >ひょっとして別エクセルで立ち上げたBookのシートを >削除しようとしているのですか？ 別エクセルで立ち上げたＢｏｏｋではないです。 どこが悪いのでしょう？難しいです。 |
| 風の強い東京から。 危うく遅刻しそうになりました。 >Excel97 となると、今の環境ではちょっとテストすることができませんのでなんともいえません。 こちらでは上手くいくのですが・・・。 お助けできず申し訳ありません。 どなたか他にご存知の方がいらしたら助けてください！ それでわ。 |
| Taka-mk2さん、こんにちは。 >お助けできず申し訳ありません。 >どなたか他にご存知の方がいらしたら助けてください！ こちらこそ、いろいろと丁寧に教えていただき ありがとうございました。Taka-mk2さんのを参考に また頑張ってみます。 |
| デヤン さん、こんにちわ。 メソッドが失敗で、 >私の環境は、Ｅｘｃｅｌ９７です。 で、プロシージャが CommandButton1_Click() ということなので、 >Private Sub CommandButton1_Click() ActiveCell.Activate '魔法の呪文 ＜＜以下略＞＞ >End Sub としてから実行してみてください。 参考...（V3過去ログ） http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=8883;id=Excel |
| りんさん、こんにちわ。 ご回答、ありがとうございます。 おかげで列の削除ができました！！ また何かあった時はよろしくお願いします！！ |