Results of 1 - 1 of about 671 for 』( ! ---- | ----* (0.107 sec.)
』( (96027), ---- (-96148)
- [[20130728172719]]
- #score: 4666
- @digest: 7b427782d9461478116ca3955612785e
- @id: 63054
- @mdate: 2013-07-28T08:50:50Z
- @size: 1024
- @type: text/plain
- #keywords: 種te (7107), ス転 (6272), checkbox (4531), 業種 (4202), checkbox1 (3470), 個配 (2717), 頼書 (2213), 書. (2134), 業者 (1865), textbox (1691), ク入 (1629), 者名 (1156), textbox1 (825), userform (805), commandbutton1 (790), 入→ (727), 転記 (522), workbooks (516), 依頼 (515), 、te (492), 本日 (469), チェ (417), ェッ (378), が20 (374), activeworkbook (356), 知恵 (317), トボ (301), 皆様 (246), テキ (236), 配置 (234), excel2007 (220), キス (218)
- 『チェック入→テキストボックス転記』(りんご)
いつもお世話になっております。 本日もお願い致します。 「業者」というUserFormがあります。 そのUserFormにはCheckBoxが20個、TextBoxが20個配置してあります。 CheckBox1 → 業種 TextBox1 → 業者名 という形で、TextBoxには全て入力がされている状態です。 必要な情報のCheckBoxにチェックを入れて、CommandButton1を押したら CheckBoxにチェックが入っている業種の業者名(TextBox)を 別のWorkbooksに転記したいのです。 Private Sub CommandButton1_Click() Workbooks.Open ThisWorkbook.Path & "¥依頼書.xlsx" Set myBook = ActiveWorkbook If CheckBox1 = True Then Range("B2").Value = TextBox1.Value CheckBox1 = False End If End Sub 単純に考えるとこういう事なのでしょうが、 同じコードをCheckBoxの数だけ記述しなくても良いのでは?と思い、 質問させて頂きました。 また、転記する際にB2の最終行からどんどん追加していきたいのです。 xlDown等があまり理解できていません・・・。 皆様のお知恵をお貸し下さい。宜しくお願い致します。 WindowsXP/Excel2007 ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201307/20130728172719.txt
- [detail]
- similar
PREV
NEXT
Powered by
Hyper Estraier 1.4.13, with 97065 documents and 608341 words.
訪問者: