Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9449 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【27238】エクセルで営業日報 Shin 05/8/3(水) 11:34 質問[未読]
【27239】Re:エクセルで営業日報 MARBIN 05/8/3(水) 12:00 回答[未読]
【27240】Re:エクセルで営業日報 MARBIN 05/8/3(水) 12:04 回答[未読]
【27243】Re:エクセルで営業日報 ponpon 05/8/3(水) 13:19 回答[未読]
【27271】Re:エクセルで営業日報 Shin 05/8/4(木) 5:38 お礼[未読]
【27238】エクセルで営業日報
質問  Shin  - 05/8/3(水) 11:34 -
引用なし
パスワード
   エクセルを使用して営業日報を書きたいと思います。
書式（訪問日・訪問先・商談内容）が決まっているのでフォームを使って書いて、ボタンを押したら隣のシートの訪問日・訪問先・商談内容という項目の下に次々に追加させていきたいと思います。

とにかく初心者なのでまったく何から始めていいのかわかりません。
どんな些細なアドバイスでも結構ですのでどなたかお助けください。

よろしくお願い致します。
【27239】Re:エクセルで営業日報
回答  MARBIN  - 05/8/3(水) 12:00 -
引用なし
パスワード
   データの転記、ですね。

worksheets(2).Cells(65536,1).end(xlup).offset(1).value = Worksheets(1).cells(1,1).value

これで１番目のシートのＡ１セルのデータを２番目のシートのＡ列の最終行に転記します。
【27240】Re:エクセルで営業日報
回答  MARBIN  - 05/8/3(水) 12:04 -
引用なし
パスワード
   ユーザーフォームのテキストボックスに入力しているのなら、

Worksheets(2).Cells(65536,1).End(xlup).Offset(1).Value = Userform1.Textbox1.Value

という感じになります。
【27243】Re:エクセルで営業日報
回答  ponpon  - 05/8/3(水) 13:19 -
引用なし
パスワード
   ▼Shin さん：
　MARBIN さんが言っているように、
　入力用シート(sheet1)を作って、日報シート(sheet2)に追記する方法と
　ユーザーフォームを使って、日報シート(sheet2)に追記する方法があると
　思います。

(1)入力用シート(sheet1)を使う場合
　訪問日、訪問先、商談内容などの項目行を設けて
　その下にデータの記入、コマンドボタン（フォームの）で、
　日報シート(sheet2)に追記する。
　日報シート(sheet2)にも訪問日、訪問先、商談内容などの項目行を設けておくと
　後でデータの抽出などに便利です。（オートフィルターなど）
　セルの結合は、避けた方がよいと思います。

(2)ユーザーフォームを使う場合
　ユーザーフォームに、
　テキストボックスを３個、訪問日用、訪問先用、商談内容用
　コマンドボタン３個　追記用、呼出用　終了用
　ぐらいを貼り付けて準備すればよいかと。
　日報シート(sheet2)のシートレイアウトは、上記と同じでよいかな。

がんばって下さい。
【27271】Re:エクセルで営業日報
お礼  Shin  - 05/8/4(木) 5:38 -
引用なし
パスワード
   おはようございます。
皆さん本当に親切な回答ばかりで大変役に立ちました！
がんばって作ってみます。
またわからなくなったら質問したいと思います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9449 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free