エクセルの学校：全文検索：Hyper Estraier：チェックボックス

Results of 1 - 1 of about 978 for チェックボックス (0.008 sec.)

[[20100911185332]]: #score: 5499; @digest: 3e6d66bb1c22ad9dcaf205eaa36797b9; @id: 51285; @mdate: 2010-09-24T22:24:56Z; @size: 5088; @type: text/plain; #keywords: 産シ (85263), 品フ (70081), ム- (43666), chnum (37632), ム") (31949), checkbox14 (12773), 生産 (12319), checkbox12 (11917), 製品 (8251), checkbox (7930), メゾ (6896), ゾッ (6740), workseets (6721), クボ (6609), シス (6441), 注書 (6101), テム (4887), oleobjects (3996), workbooks (3874), ステ (3445), 発注 (3424), 名") (2969), 数型 (2880), 回同 (2479), ォー (2440), ーム (2157), チェ (2088), cells (1905), ェッ (1891), フォ (1875), ボッ (1785), value (1669); 『チェックボックス』（タナ）
いつもこちらで勉強させて頂いております。現在つまっている所がございますので教えて頂けないでしょうか。 BOOK1のSheet1に製品発注の詳細が記載されているのですがそれを発注書に転記したいです。ただBOOK1のSheet1には製品の情報が入っており、部品の発注先が違う為 チェックボックスにチェックを入れたもの以外は転記しません。また、部品の色の展開があるのでCheckBox12〜15までにチェックを入れて入れた箇所により発注書の行欄を開けたいのですが… 下記の様に組んでも何も反応致しません…ご教授願いたいです。 Dim MyRow As Long, MyCol As Long Dim i As Long Dim c As Long Dim e As Long Dim d As Long If CheckBox12.Value = True Then i = "0" End If If CheckBox13.Value = True Then i = "1" End If If CheckBox14.Value = True Then i = "2" End If If CheckBox14.Value = True Then i = "3" End If With Worksheets("sheet1")'これは発注書の方のSheet1です。OPENメゾットは手前で記載しておりますので省略しております d = .Range("D65536").End(xlUp).Row + 1 + i For e = 1 To 11 If CheckBox & e = Value Then For c = 18 To 28 .Cells(d, 4).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(c, 2).Value .Cells(d, 7).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(c, 4).Value .Cells(d, 11).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(c, 6).Value .Cells(d, 13).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(c, 10).Value .Cells(d, 14).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(c, 18).Value Next c End If Next e End With 何処がおかしいのでしょうか?? Excel2003 OS:XP ---- i は整数型ですから、 i = "0" ではなく i = 0 ですね。 If CheckBox & e = Value Then は意味不明です。それからインデントをきちんとつけましょう本論と関係ありませんが、メゾットではなくメソッド（Method）です。まだまだ問題はありそうですが、まずは構文的なエラーがなくなる状態にしてはどうでしょうか。 On Error Resume Next を使っているとしたら、デバッグの段階では邪魔です。 (Mook) ---- Mook様ありがとうございます。 チェックボックスのループ処理は出来ないのでしょうか If CheckBox & e = Value Thenは1から11までのチェックボックスの処理をしたく思ったので…トホホ >メゾットではなくメソッド（Method）です。ご指摘ありがとうございます。恥をかき続ける所でした… iは整数型と言う事はi=0 i=1 ...として行けば良いと言う事でしょうか?? またまた質問ばかりで申し訳ございません。 ---- やりたいことは何となく分かりました。 チェックボックスにアクセスするには、単純な文字列ではできません。 For chNum=11 To 15 If Worksheets("チェックボックスのあるシート名").OLEObjects("CheckBox" & chNum).Object.Value = True Then For ... ... Netx End If Next のようにする必要があります。また、 For c = 18 To 28 .Cells(d, 4).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(c, 2).Value .Cells(d, 7).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(c, 4).Value .Cells(d, 11).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(c, 6).Value .Cells(d, 13).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(c, 10).Value .Cells(d, 14).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(c, 18).Value Next c は、毎回同じところに書いているので、ループの意味がありません。まずは、コピー元のデータとチェックボックスの関係をもう少し、説明されてはどうでしょうか (Mook) ---- Mook様ご連絡遅くなりました申し訳ございません。 チェックボックスの件ありがとうございます。 チェックボックスはユーザーフォーム上にあるのですがその場合 If Worksheets("チェックボックスのあるシート名").OLEObjects("CheckBox" & chNum).Object.Value = True Then workseetsの部分はどの様になるのでしょうか? Userform2としてもダメでした…。＞毎回同じところに書いているので、ループの意味がありません。確かに…チェックボックスにチェックが入っている行の各列（2、4、6、10、18）を発注書に転記したいのですがその場合は If Worksheets("チェックボックスのあるシート名").OLEObjects("CheckBox" & chNum).Object.Value = True Then .Cells(d, 4).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(ChNum+17, 2).Value .Cells(d, 7).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(ChNum+17, 4).Value .Cells(d, 11).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(ChNum+17, 6).Value .Cells(d, 13).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(ChNum+17, 10).Value .Cells(d, 14).Value = Workbooks("生産システム-1").Sheets("製品フォーム").Cells(ChNum+17, 18).Value End If Next この様な形になりますか?? 何度もスミマセン… ---- もうすでに見ていないかもしれませんが、下記のあたりが参考にならないでしょうか。 http://www.excel.studio-kazu.jp/cgi-bin/estindex/estseek2.cgi?phrase=VBA+Checkbox+Controls&perpage=10&attr=&order=&clip=-1&navi=0 この手のことはまず間違いなく前例があるので、検索キーワードさえうまく選べば例がたくさん見つかると思います。 (Mook) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201009/20100911185332.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ