Results of 1 - 1 of about 675 for 』（ ! ---- | ----* (0.109 sec.)
』（ (97528), ---- (-97645)
- [[20130728172719]]
- #score: 4656
- @digest: 7b427782d9461478116ca3955612785e
- @id: 63054
- @mdate: 2013-07-28T08:50:50Z
- @size: 1024
- @type: text/plain
- #keywords: 種te (7107), ス転 (6272), checkbox (4490), 業種 (4202), checkbox1 (3454), 個配 (2670), 頼書 (2190), 書. (2089), 業者 (1848), textbox (1676), ク入 (1610), 者名 (1147), textbox1 (820), userform (799), commandbutton1 (785), 入→ (724), 転記 (515), workbooks (509), 依頼 (508), 、te (489), 本日 (465), チェ (414), ェッ (374), が20 (370), activeworkbook (353), 知恵 (313), トボ (299), 皆様 (242), テキ (233), 配置 (231), excel2007 (219), キス (215)
- 『チェック入→テキストボックス転記』（りんご）
いつもお世話になっております。 本日もお願い致します。 「業者」という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 98566 documents and 615497 words.
訪問者：