人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

前回の続きです。
ダブルクリックすると現状は入力シートが開くのですが
行のうちクリックしたセルの範囲毎に開くシートをかえる指示はだせるのでしょうか?

Sub AUTO_OPEN()
Application.ScreenUpdating = False
' With Application
' .OnDoubleClick = "SELECT_AC"
' **セルをダブル・クリックするとマクロSELECT_ACが作動します。
' End With
状態 = ""
Sheets("入力").Select
End Sub

if構文を追加すれば実現できそうなのですが
うまく動きません。


●質問者: mika555
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:application SELECT sub クリック セル
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● Mook
●100ポイント

どのシートで入力したかを覚えておく必要があります。

最後尾列(V列)にでも入力シート名を記録しておき、


SELECT_AC を下記のように変更したらできそうです。

Sub SELECT_AC()
 修正行 = 0

 If ActiveSheet.Name = "DATA" Then
 GYOU = ActiveCell.Row
 SheetName = Cells(GYOU, "V").Value
 修正行 = GYOU
 RETU = Worksheets(SheetName).Range("a5").CurrentRegion.Count
 For I = 1 To RETU
 j = I + 3
 Worksheets(SheetName).Cells(j, 2) = Worksheets("DATA").Cells(GYOU, I).Value
 Next I
 Sheets(SheetName).Select
 
 ss = Str(修正行)
 If 状態 = "修正" Then Range("b2") = ss & " 行目 修正中"
 If 状態 = "流用" Then Range("b2") = ss & " 行目 流用中"
 
 Range("B4").Select
 End If
End Sub

ただし、入力シートの書式が異なっている場合は、適切な状態に戻すよう処理の内容を変える必要があります。

http://www.asahi-net.or.jp/~ef2o-inue/top01.html

◎質問者からの返答

ありがとうございます。

格闘してみます!!

やってみましたが

実行時エラー”9”

インデックスが有効範囲でありません。

と、でて

デバッグすると

RETU = Worksheets("sheetname").Range("a5").CurrentRegion.Count

がデフォルトされます。

新しいスレッドだすのでご協力いただけたら助かります。


2 ● hayashi4
●0ポイント

がんばってください http://www

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ