エクセルの学校：全文検索：Hyper Estraier：（Mook）

Results of 1 - 1 of about 1215 for （Mook） (0.001 sec.)

[[20150327235722]]: #score: 9211; @digest: 2fc41467e04f3bd3ca6b345f64de2a6d; @id: 67620; @mdate: 2015-03-28T03:27:07Z; @size: 3246; @type: text/plain; #keywords: wst1 (96700), wst4 (61313), 書sh (14665), 存_ (9146), 力拝 (7748), 積書 (6914), mico (6859), 見積 (6170), myrow (4448), 動転 (3662), password (3639), 部内 (3387), 行記 (3225), 覧表 (2819), 存ボ (2496), 書") (2319), 奮闘 (2129), 書） (2123), 闘中 (1949), clearcontents (1669), unprotect (1620), a15 (1599), ・保 (1577), 表") (1537), 理番 (1520), 一覧 (1498), protect (1467), 品書 (1359), range (1236), 転記 (1220), （見 (891), thisworkbook (853); 『自動転記すると最終行に2行記入されてしまう』（mico）
エクセルで見積書を作成するため、奮闘中の初心者です。ネットで調べながら進めているのですが、どうしてもできない部分があるので、お力拝借できれば幸いです。 sheet1 見積書 sheet2 納品書 sheet3 請求書 sheet4 一覧表 sheet1の見積書に入力するとsheet2、sheet3には自動で入力されるように元々の書式がなっていました。各シートとも必要なセル以外は保護がかかっています。それに加えて・保存ボタンを押すとsheet1（見積書）の一部内容を、sheet4（一覧表）に自動転記されるようにしたい・A転記後、Sheet1(見積書)の内容をクリアにしたい・上記と同時に自動で管理番号を連番で振りたい転記と自動連番はされるのですが、一覧表には同じ情報が2行ずつ追加されてしまいます。転記元（見積書） G1管理番号 G3日付 A4顧客名 A5内容 A6金額 A15〜A48は見積内容を記入します（空白セルあり）転記先（一覧表）それぞれA〜E列に転記していきます。以下、VBAに記載した内容です。これだと一覧表に2行づつ記入されてしまいます。正しい指示の書き方が分かりません。どなたか教えていただけると幸いです。 Private Sub 保存_Click() ActiveSheet.Unprotect Password:="****" Dim wst1 As Worksheet Dim wst4 As Worksheet Set wst1 = ThisWorkbook.Worksheets("見積書") Set wst4 = ThisWorkbook.Worksheets("一覧表") For i = 15 To 48 If wst1.Range("A" & i) <> "" And Not IsNull(wst1.Range("A" & i)) Then myRow = wst4.Cells(Rows.Count, "A").End(xlUp).Row + 1 wst4.Range("A" & myRow) = wst1.Range("G1") wst4.Range("B" & myRow) = wst1.Range("G3") wst4.Range("C" & myRow) = wst1.Range("A4") wst4.Range("D" & myRow) = wst1.Range("A5") wst4.Range("E" & myRow) = wst1.Range("C12") End If Next i wst1.Range("G1") = wst1.Range("G1") + 1 wst1.Range("A4").ClearContents wst1.Range("A5").ClearContents wst1.Range("A15:A42").ClearContents wst1.Range("A44:A48").ClearContents wst1.Range("E15:E42").ClearContents wst1.Range("F15:F42").ClearContents ActiveSheet.Protect Password:="****" End Sub ＜使用 Excel:Excel2013、使用 OS:Windows8 ＞ ---- A15〜A48 は何が入っているのですか? まったくもって推測ですけれど、これでは問題あるでしょうか。 Private Sub 保存_Click() Dim wst1 As Worksheet Dim wst4 As Worksheet Set wst1 = ThisWorkbook.Worksheets("見積書") Set wst4 = ThisWorkbook.Worksheets("一覧表") If WorksheetFunction.CountBlank(wst1.Range("A15:A48")) = 34 Then Exit Sub wst4.Unprotect Password:="****" myRow = wst4.Cells(Rows.Count, "A").End(xlUp).Row + 1 wst4.Range("A" & myRow) = wst1.Range("G1") wst4.Range("B" & myRow) = wst1.Range("G3") wst4.Range("C" & myRow) = wst1.Range("A4") wst4.Range("D" & myRow) = wst1.Range("A5") wst4.Range("E" & myRow) = wst1.Range("C12") wst1.Range("G1") = wst1.Range("G1") + 1 wst1.Range("A4:A5,A15:A42,A44:A48,E15:F42").ClearContents wst4.Protect Password:="****" End Sub （Mook） 2015/03/28(土) 01:15 ---- ご回答ありがとうございます。ド素人なもので、まったく分からずでしたが、仕事でやらねばならず...。望んでいた通りに動きました!!!!!! A15〜A18は、見積明細項目や備考にあたる部分なので、一覧表には反映させていませんでした。大変助かりました。ありがとうございます。（mico） 2015/03/28(土) 09:30 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150327235722.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ