人力検索はてな
ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら
i-mobile
この画像にあります｢ｴｸｾﾙ01ﾌｧｲﾙ｣という請求書があります｡
1件入力し終えた後､ﾎﾞﾀﾝを押すとﾌｧｲﾙ内の別ｼｰﾄに保存されます｡
この中の内容の一部を､別の｢ｴｸｾﾙ02ｧｲﾙ｣を新たに作成し､画像のような項目が1行目からﾎﾞﾀﾝを押す度に2行目､3行目と溜まっていくようになるようなｴｸｾﾙをどのように作成するかをご教授ください｡
(画像内のｾﾙの位置は実際のﾌｧｲﾙのもので､この例となる請求書画像の位置とは異なります)

1377686334
●拡大する
●質問者: surippa20
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ
○ 状態 :終了
└ 回答数 : 2/2件
▽最新の回答へ
▽1 ● きゃづみぃ
●1000ﾎﾟｲﾝﾄ ﾍﾞｽﾄｱﾝｻｰ
Private Sub CommandButton1_Click()

 Dim TBook As Workbook
 Set TBook = Workbooks.Open("ｴｸｾﾙ02ﾌｧｲﾙ.xls")
 
 a = TBook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
 
 If TBook.Sheets(1).Cells(1, 1) <> "" Then a = a + 1
 
 TBook.Sheets(1).Cells(a, 1) = Range("H1")
 TBook.Sheets(1).Cells(a, 2) = Range("C5")
 TBook.Sheets(1).Cells(a, 3) = Range("D10")
 TBook.Sheets(1).Cells(a, 4) = Range("D11")
 
 期間 = Range("D11") - Range("D10")
 TBook.Sheets(1).Cells(a, 5) = 期間
 TBook.Sheets(1).Cells(a, 6) = Range("D7")
 
 判別 = 0
 
 If Range("D7") <= 10000 Then 判別 = 5
 If Range("D7") <= 5000 Then 判別 = 4
 If Range("D7") <= 3000 Then 判別 = 3
 If Range("D7") <= 1000 Then 判別 = 2
 If Range("D7") <= 500 Then 判別 = 1
 
 
 TBook.Sheets(1).Cells(a, 7) = 判別
 TBook.Sheets(1).Cells(a, 8) = Range("B6")
 TBook.Sheets(1).Cells(a, 9) = Range("C6")
 
 
 TBook.Close SaveChanges:=True
 
End Sub

ﾎﾞﾀﾝを押したときの処理を 上記のようにすればよいでしょう｡

Set TBook = Workbooks.Open("ｴｸｾﾙ02ﾌｧｲﾙ.xls")

ここに ｴｸｾﾙﾌｧｲﾙ名を入れればいいです｡
新たに作成とありますが､追加していくのであれば､最初に手動でﾌｧｲﾙを作ったほうがいいでしょうね｡

あと ｼｰﾄは 最初のｼｰﾄになっています｡
ｼｰﾄ名が固定ならば それにしてもいいですよ｡

TBook.Sheets(1).Cells(a, 1)
↓
TBook.Sheets("ｼｰﾄ名").Cells(a, 1)

surippa20さんのｺﾒﾝﾄ
大変遅くなりご連絡もせずに誠に失礼致します｡ 頂きました内容で今ほど作成しています｡ ｼｰﾄ名ですが､ﾎﾞﾀﾝを押す度に｢2のお客様氏名｣＋ﾎﾞﾀﾝを押した日時の｢日｣がｼｰﾄ名に記載され､ｼｰﾄがその度に増えていることを記載しておりませんでした｡ 実行時ｴﾗｰ'1004': ｱﾌﾟﾘｹｰｼｮﾝ定義またはｵﾌﾞｼﾞｪｸﾄ定義のｴﾗｰです｡ という内容が表示されました｡
surippa20さんのｺﾒﾝﾄ
もう一度､ｼｰﾄ部分を追加し質問を致しました｡ http://q.hatena.ne.jp/1378297554 宜しければこちらでお願い致します｡
きゃづみぃさんのｺﾒﾝﾄ
ｴﾗｰですけど､どの行で ｴﾗｰになりますでしょうか? また､ｼｰﾄに保存とありますが､ｼｰﾄに保存の箇所は なくても動作するように作ってあります｡
surippa20さんのｺﾒﾝﾄ
時間が経過し申し訳ありません｡一旦､ｴｸｾﾙ02ﾌｧｲﾙ.xlsに書き出すところまで､おこなうことができました｡ 一件を入力しﾎﾞﾀﾝを押すと､ｴｸｾﾙ02ﾌｧｲﾙ.xlsが開き､その1行目に依頼の通りに入力がされます｡ありがとうございました｡ ですが､2件目を入力する為に､1件目の案件を別ｼｰﾄに保存し､再度ﾎﾞﾀﾝを押しますと､ ｢ｴｸｾﾙ02ﾌｧｲﾙ.xlsは､既に開いています｡2重に開くと､これまでの内容が破棄されます｣と表示されます｡ ｢はい｣とすると､前回の1件目の1行目内容が消え､その1行目の上に､2件目の内容が入ります｡ ｢いいえ｣としますと､｢実行時ｴﾗｰOpenﾒｿｯﾄﾞが失敗しました｡Worksbookｵﾌﾞｼﾞｪｸﾄ｣と表示されます｡ 大変時間が経過しましたが､申し訳ありませんが質問させていただきました｡誠に勝手を申しますが､何とぞよろしくおねがい致します｡
▽2 ● だわかき
●100ﾎﾟｲﾝﾄ

ﾃﾞｰﾀ ﾌｫｰﾑを使用して行を追加､編集､検索､および削除する
http://office.microsoft.com/ja-jp/excel-help/HA102749061.aspx

関連質問
●質問をもっと探す●

0.人力検索はてなﾄｯﾌﾟ
8.このﾍﾟｰｼﾞを友達に紹介
9.このﾍﾟｰｼﾞの先頭へ
□対応機種一覧
□お問い合わせ
□ﾍﾙﾌﾟ/お知らせ
□ﾛｸﾞｲﾝ
□無料ﾕｰｻﾞｰ登録
□はてなﾄｯﾌﾟ