一時的なマーキングExcelワークシートの形状は?
私は一部のドットと正方形を持つワークシートを持っています.存続期間の一生のイベントを表す.
これらのイベントの1つをクリックすると、ユーザーがアクセスまたは単語のドキュメントのフォームにアクセスします.
しかし、...
ワークシートに戻るときにどのドット/スカールがクリックされたかを覚えておくことが難しいです-それで私は何らかの方法で「マーク」してドット/スカールを「マーク」する
一時的な!
「一時」、一度に1ドット/スクアールだけをマークすることができます
ユーザーがドット/スカールをクリックした場合のみ!
私は今やドット/スカールのデータを彩るためにonアクションを使う:
パブリックサブShowEventIdInAccess()
"すべてのイベントドットには.onAction= "showEventIdinAccess"
DIM HID LONG、アクセスを表示するHID OG PIDとしてPID
HID= left(Application.caller、Instr(1、Application.caller、 ")) "application.callerはドット名を" HID PID "として返します.
pid= right(application.caller、Instr(1、streverse(proption.caller)、 ""))
"実行アクセスのためのテスト
iSprocessRunning( "msaccess.exe")の場合、
ShowPersOnventId PID、HID
MSGBox( "アクセスSkalKørerMedslúgtsprogrammet!")
の場合は終了
パブリックサブShowPersOnventID(Long Long Chid、Long Long Long)
Access.ApplicationsとしてのDim AppAccess
set appaccess= getObject(、 "access.application")
AppAccess
.run "preppersonform"、id、 "tabhōndelser"、HID
visdocの場合
.RUN "getDocument0" Bare En Sub I ET Modul SOM "リンカー" Til Den Rigtige getDocument iサブメン、DAN Alligevel Ikke Er "Rigtig Public"
.RUN「OpenORSHOWFORM」、「PERSION VEDLIGEHOLD AF」
setForeGroundWindow .Application.hwndAccessApp
の場合は終了
終了SUB
マーキングはすでに薄い黒の代わりに太字の赤い境界線であるかもしれません.
どうやってこれを行うことができますか?
返信リスト(回答:1)
簡単な例:
新しいファイルを作成する
VBAエディタを開く
通常のモジュールを挿入する
このコードの貼り付け
オプションの明示的
stringとしてのpublic lastshapename
サブセットShapeMarker()
形状として薄暗い
'誤りを除く、たぶん前の形はありません
次のエラー再開について
'その形状を参照してください
SH= ActiveSheet.Shapes(LastShapename)を設定
'境界線の色をカラーにする
sh.line.forecolor.rgb= RGB(0,0,0)
'誤りを誤って、私たちは開発中に何かがうまくいかなかったかどうかを知りたいです
誤った後藤0.
'呼び出された形状の名前を取得します
lastShapename= application.caller.
'その形状を参照してください
SH= ActiveSheet.Shapes(LastShapename)を設定
'境界赤の色を色します
sh.line.forecolor.rgb= RGB(255,0,0)
終了サブ
VBAエディタを閉じる
分で挿入する.シート内に2つの形状(例えば長方形)
それぞれを右クリックして上記のマクロを割り当てます
セルを選択する
ファイルをxlsmとして保存する
「アクティブな」形状が赤い枠になるように、図形をクリックしてください.
アンドレアス.