回答編集履歴

2

コード修正

2019/12/01 16:41

投稿

hatena19
hatena19

スコア33717

test CHANGED
@@ -6,7 +6,7 @@
6
6
 
7
7
  Sub test()
8
8
 
9
- UserForm1.TextBox2.ControlSource = "A1"
9
+ UserForm1.TextBox2.ControlSource = "Sheet1!A1"
10
10
 
11
11
  UserForm1.Show vbModeless
12
12
 

1

説明追記

2019/12/01 16:41

投稿

hatena19
hatena19

スコア33717

test CHANGED
@@ -17,3 +17,7 @@
17
17
 
18
18
 
19
19
  テキストボックスは背景スタイルと境界線スタイルを透明にすれば見た目はラベルと同様にできます。
20
+
21
+
22
+
23
+ ちなみにユーザーフォームはモードレスで開かないと、VBAコードは停止するので、VBAでのカウントダウンタイマーも停止してしまいます。