Results of 1 - 1 of about 37655 for IF (0.007 sec.)
- [[20151211151922]]
- #score: 1592
- @digest: ec6e929d2297e1bd378664ec33503266
- @id: 69502
- @mdate: 2015-12-11T07:54:22Z
- @size: 3153
- @type: text/plain
- #keywords: userform12 (28853), userform10 (25390), flag3 (20721), flag2 (16322), flag1 (14723), appactivate (11115), userform4 (10969), 20151210140915 (7748), （昴 (7213), vbmodeless (7159), 昴） (6198), pos3 (6198), ム消 (6058), 正必 (5894), flag (4601), pos1 (3769), pos2 (3606), activewindow (3076), caption (3040), hide (2873), ム起 (2868), boolean (2207), intersect (1817), pos (1811), 個1 (1654), show (1322), ル移 (1228), 独立 (1221), selectionchange (1188), 帳票 (996), target (976), nothing (967)
- 『複数のユーザーフォーム起動について』（昴）
[[20151210140915]] ↑で飛び入りで質問しましたが 改めましたのでよろしくお願いします 列によりユーザーフォームを立ち上げ帳票を作成しようと考えています。 "A:A,E:E"にういては、セル移動でユーザーフォーム消えるのですが H:H,I:Iは起動するのですが消えません どこか修正必要でしょうか よろしくお願いします Dim flag As Boolean Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim pos As Boolean If Not Intersect(Me.Range("A:A,E:E"), Target) Is Nothing Then pos = True If pos Then If Not flag Then UserForm4.Show vbModeless flag = True 'AppActivate ActiveWindow.Caption '★ End If Else If flag Then UserForm4.Hide flag = False End If End If If Not Intersect(Me.Range("H:H"), Target) Is Nothing Then pos = True If pos Then If Not flag Then UserForm10.Show vbModeless flag = True 'AppActivate ActiveWindow.Caption '★ End If Else If flag Then UserForm10.Hide flag = False End If End If If Not Intersect(Me.Range("I:I"), Target) Is Nothing Then pos = True If pos Then If Not flag Then UserForm12.Show vbModeless flag = True 'AppActivate ActiveWindow.Caption '★ End If Else If flag Then UserForm12.Hide flag = False End If End If End Sub ＜ 使用 Excel:Excel2013、使用 OS:Windows7 ＞ ---- Dim flag1 As Boolean Dim flag2 As Boolean Dim flag3 As Boolean Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim pos1 As Boolean Dim pos2 As Boolean Dim pos3 As Boolean If Not Intersect(Me.Range("A:A,E:E"), Target) Is Nothing Then pos1 = True If pos1 Then If Not flag1 Then UserForm4.Show vbModeless flag1 = True 'AppActivate ActiveWindow.Caption '★ End If Else If flag1 Then UserForm4.Hide flag1 = False End If End If If Not Intersect(Me.Range("H:H"), Target) Is Nothing Then pos2 = True If pos2 Then If Not flag2 Then UserForm10.Show vbModeless flag2 = True 'AppActivate ActiveWindow.Caption '★ End If Else If flag2 Then UserForm10.Hide flag2 = False End If End If If Not Intersect(Me.Range("I:I"), Target) Is Nothing Then pos3 = True If pos3 Then If Not flag3 Then UserForm12.Show vbModeless flag3 = True 'AppActivate ActiveWindow.Caption '★ End If Else If flag3 Then UserForm12.Hide flag3 = False End If End If End Sub （mm） 2015/12/11(金) 16:13 ---- （mm）さん ありがとうございます。 1個1個に独立したか立ち出ないといけないのですね。 わかりました 解決です。 （昴） 2015/12/11(金) 16:54... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201512/20151211151922.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97040 documents and 608045 words.
訪問者：