Ｐａｇｅ 161 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼セルの列位置 maeda 02/10/3(木) 14:50 ┣Re:セルの列位置 こうちゃん 02/10/3(木) 20:58 ┃ ┗Re:セルの列位置 maeda 02/10/3(木) 21:29 ┗Re:セルの列位置 ぴかる 02/10/3(木) 20:59 ─────────────────────────────────────── ■題名 ： セルの列位置 ■名前 ： maeda <fwhn0621@mb.infoweb.ne.jp> ■日付 ： 02/10/3(木) 14:50 -------------------------------------------------------------------------
| 簡単な動作ですが、エンターでセルを右へ移動するマクロを次のように書きました。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ActiveCell.Offset(-1, 1).Select End Sub このマクロですと無条件に右へ移動しますが、「E」列になるとA列までアクティブセルが移動するマクロにしたいのですが、記述の方法がよく分かりません。 |
| maedaさん、こんばんは >簡単な動作ですが、エンターでセルを右へ移動するマクロを次のように書きました。 >Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) >ActiveCell.Offset(-1, 1).Select >End Sub >このマクロですと無条件に右へ移動しますが、「E」列になるとA列までアクティブセルが移動するマクロにしたいのですが、記述の方法がよく分かりません。 こんなんでいいでしょうか？ Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If ActiveCell.Column = 5 Then ActiveCell.Offset(0, -4).Select Else ActiveCell.Offset(-1, 1).Select End If End Sub |
| ▼こうちゃん さん： > If ActiveCell.Column = 5 Then そうですね ActiveCell.Column は考えたのですが、具体的な使用方法まで到達できませんでした。 誠にありがとうございます。 また参考サイトを紹介戴きありがとうございます。 感謝感謝です |
| maedaさん、こんばんは。 次のスレッドを参考にして下さい。色々パターンが有りますよ。 http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=8776;id=Excel それとピカつーるにもよく似た内容のものがあります。入力設定にあります。 ダウンロードして試してみて下さい。 http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=29;id=FAQ |