[[20041030150403]] 『コンパイルエラー:プロシャージが大きすぎます』(tyon) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『コンパイルエラー:プロシャージが大きすぎます』(tyon)

[VBAで]

 コンパイルエラー:プロシャージが大きすぎます
 と、出てくるのですがいい方法はありますか?


 問題のプロシジャーは何行ありますか?
 (kazu)

 ↓の方と同じような状況なのでしょうから、問題のコードをどのように
 記述しているのかを見てみないとなんとも... (ramrun)

[[20041025141709]]『入力規制のリストの設定で1つ目のセルで...』(後藤)


 プロシジャーな約4000行ぐらいあります
 まだ半分も行ってないないのですが・・・
 [[20041025141709]]『入力規制のリストの設定で1つ目のセルで...』(後藤)
 を見て私もやったのですが途中で
 コンパイルエラー:プロシャージが出てきてしまったので
 何分、初心者なのですいません
 (tyon)


 4000ってすごいですね。

 で、どんなコードなんですか?
 一部を掲載していただかないと、何にも答えられませんが...
 (ramrun)


 コード中にセル番地を書くのも大変なので、ワークシートのセルに書いておく
 ような処理の参考に。
 (ramrun)

エンターキーの移動先を指定する
http://ryusendo.no-ip.com/cgi-bin/fswiki/wiki.cgi?page=ExcelVBA#p18


 [[20041025141709]]『入力規制のリストの設定で1つ目のセルで...』(後藤)
 と同じなのでこんな感じです
 Private Sub Worksheet_Change(ByVal Target As Range)

    Select Case Target.Address(0, 0)
Case "AD132"
        Range("AE132").Select

    Case "AE132"
        Range("AF132").Select

   Case "AF132"
        Range("AG132").Select

    End Select

    SendKeys "(%{DOWN})"
 End Sub

 よろしくお願いします
 (tyon)


 ↓にあげた私のコードが使えませんか?

[[20041025141709]]『入力規制のリストの設定で1つ目のセルで...』(後藤)

 またはこういうのは利用できませんか?

[[20030728103442]] 『任意の範囲以外にカーソルが行かないようにしたい』(すぎ)

 (ramrun)

エンターキーの移動先を指定する
http://ryusendo.no-ip.com/cgi-bin/fswiki/wiki.cgi?page=ExcelVBA#p18

 やってみたのですがうまくいきませんでした
 やりかたがおかしいのかな?すいません
 (tyon)


 とりあえず、このデータをSheet2に。A列にアドレスを入れていきます。
 B1の1を忘れずに。

     A       B
 1  A2       1
 2  A9
 3  A10
 4  A11
 5  B9
 6  B10
 7

 リンク先のコードはSheet1に。
 それでSheet1上でEnterすると動作は確認できると思います。
 単に動くだけでなので、あとは自分の仕様にあわせて改造してください。
 (ramrun)あんまり実用的でないので見直しまっさ。

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.