advanced help
per page, with , order by , clip by
Results of 1 - 1 of about 44 for セルの幅 単位 (0.006 sec.)
セルの幅 (324), 単位 (3431)
[[20200810155356]]
#score: 9641
@digest: c0c15b843891b08364d9f71940cabec1
@id: 84759
@mdate: 2020-08-11T03:44:46Z
@size: 2153
@type: text/plain
#keywords: ufname (22142), ufobj (21804), userforms (18033), myform (14742), tips103 (7748), controls (3195), 者自 (3076), textbox1 (2894), 既知 (2818), userform1 (2630), 味本 (2193), 本位 (2044), vbaproject (1366), 稲葉 (965), う使 (946), show (882), ーフ (863), な使 (778), 2020 (680), 問者 (638), 火) (625), ンス (581), 興味 (549), 生成 (529), officetanaka (518), 変数 (471), ォー (458), ユー (432), ーザ (421), ザー (411), ーム (405), 意図 (369)
『ユーザーフォームとそのコントロールを文字列(変数) を使って参照するには』(おっとう) UserForm1のTextBox1はUserForm1.Controls("TextBox1")で指定できますがUserform1も変数で参照するにはどうしたらよろしいでしょうか。 < 使用 Excel:Office365、使用 OS:Windows10 > ---- ご参考まで。 http://officetanaka.net/excel/vba/tips/tips103.htm (γ) 2020/08/10(月) 16:15 ---- ありがとうございました。 Dim myForm As String myForm = "UserForm1" UserForms.Add(myForm).Show でShowすることはできますが、 UserForms.Add(myForm).Controls("TextBox1")のような使い方ができないようです。 (おっとう) 2020/08/11(火) 07:23 ---- 横からすみません。 どういう使い方を想定されているかわかりませんが、 >UserForms.Add(myForm).Controls("TextBox1") これだとインスタンスが生成されて、すぐに消えてしまうから、2行に変更しても反映されないだけだと思います。 例えば、Object型に入れてしまうとか、Withでくくるなどすれば対応できるのではないでしょうか? Sub test() Dim UFname As String Dim UFobj As Object UFname = "UserForm1" Set UFobj = UserForms.Add(UFname) 'UFobj.TextBox1.Text = "a" UFobj.Controls("Textbox1").Text = "b" With UserForms.Add(UFname) .Controls("Textbox1").Text = "c" .Show End With UFobj.Show End Sub (稲葉) 2020/08/11(火) 09:10 ---- 稲葉様 さっそくありがとうございました。 思っていたような使い方ができそうです。 勉強になりました。 感謝です。 (おっとう) 2020/08/11(火) 11:10 ---- 質問者の意図が良く解らないので、 VBAProject をループさせて探すか、 直に Set UFM1 = Userform1 とかするぐらいかと。 これなら、変数をつかってユーザーフォームを使うに一致するし。 まあ、質問者自体が思いつきでそう思っているだけでは。 単に興味本位なだけに思われますので、 やめておいた方が良いとおもますけどね。 (Why) 2020/08/11(火) 11:59 ---- 解決されたようですが、いったいどういう使い方されてるか、教えてもらえませんか? 既知のユーザーフォームなら、Whyさんのおっしゃるように最初から指定すればいいだけだと思いますし、 それができない理由も気になります。 (稲葉) 2020/08/11(火) 12:44 ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/202008/20200810155356.txt - [detail] - similar
PREV NEXT
Powered by Hyper Estraier 1.4.13, with 96869 documents and 608041 words.

訪問者:カウンタValid HTML 4.01 Transitional