Excel VBA質問箱 IV

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

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


24891 / 76738 ←次へ | 前へ→

【57193】Re:CSVデータをACCESSに移行2.
発言  satsuki  - 08/7/31(木) 11:13 -

引用なし
パスワード
   ▼neptune さん:
レスありがとうございます。
そのスレッド(特にプログラムの部分)が長くなり読みにくくならないようにしようと思って、プログラムの抜粋だけを書きましたが、逆に説明不足だったのですね。申し訳ありません。

>前回のスレッドで、VBにおける文字列処理の基本を
>見落としているのでVBAだけではなく、プログラミング経験そのものが余り無い
>のかも?判断します。

経験は決して長くないです。

>本スレッドの最初のサンプルソースで、for~next文を使用していると書いている
>にも関わらず、for~next文におけるi、jの初期値、最終値の設定が書かれていない
>ので正確には判断できない。

最初に一つめのタイトルのあるセルを検索し、↓
SearchWord = TitleName(0)
Set kiten2 = Worksheets("Sheet1").Columns(1).Find(What:=SearchWord, LookIn:=xlValues, LookAt:=xlWhole)

そのセルからデータの最終行までを最終値にしています。
For j = kiten2.Row + 1 To Range("A65536").End(xlUp).Row

>という進展状況を書かれましたが、どの様な工夫かを明記していない為
>少なくとも質問、アドバイスを求めるスキルは不足していると思います。

下記のようなコードをいれましたが、そうすると、「3.店別個人別売上数」
より下を見に行かずにおわってしまいました。
If i > 1 Then
  Exit Sub
End If

>ExcelVBAも含め、現在のやり方がBestとは思いません。
>ご自分の得意な言語と同じやり方でどうぞ。言語により当然多少手続きは
>違うでしょうが、同じ事ができると思います。
>・・実はつい最近自分用で、ExcelVBAではないですが、TextファイルをAccessに落としました。今回と殆ど同じ事です。^ ^;

いえいえ、言語はVBAを使うのですが、コーディングの仕方がもっといい方法はないかと思い、ご質問いたしました。

>誰が読んでも判るような説明+再現性の有るサンプルソースをUPすれば
>もっと、良いアドバイスを受けられると思いますし、私より親切な方からも
>アドバイスを受けられると思いますよ。

全部コードを書くのは読むのが疲れるかなと思いましたが、必要な部分も足りなかったようですね。ご指摘ありがとうございました。

0 hits

【57168】CSVデータをACCESSに移行2. satsuki 08/7/30(水) 16:13 質問
【57183】Re:CSVデータをACCESSに移行2. neptune 08/7/30(水) 22:31 発言
【57188】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 0:47 質問
【57189】Re:CSVデータをACCESSに移行2. かみちゃん 08/7/31(木) 0:56 発言
【57194】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 11:23 質問
【57196】Re:CSVデータをACCESSに移行2. かみちゃん 08/7/31(木) 12:47 発言
【57201】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 14:26 質問
【57207】Re:CSVデータをACCESSに移行2. neptune 08/7/31(木) 21:52 回答
【57208】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 1:08 発言
【57192】Re:CSVデータをACCESSに移行2. neptune 08/7/31(木) 10:25 発言
【57193】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 11:13 発言
【57198】Re:CSVデータをACCESSに移行2. neptune 08/7/31(木) 13:33 発言
【57209】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 1:14 発言
【57210】Re:CSVデータをACCESSに移行2. かみちゃん 08/8/1(金) 7:14 発言
【57222】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 19:37 質問
【57220】Re:CSVデータをACCESSに移行2. neptune 08/8/1(金) 16:18 発言
【57221】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 19:31 質問
【57225】Re:CSVデータをACCESSに移行2. かみちゃん 08/8/1(金) 21:28 発言
【57230】Re:CSVデータをACCESSに移行2. satsuki 08/8/2(土) 1:14 お礼
【57231】Re:CSVデータをACCESSに移行2. かみちゃん 08/8/2(土) 9:56 発言
【57232】Re:CSVデータをACCESSに移行2. neptune 08/8/2(土) 11:08 発言
【57227】Re:CSVデータをACCESSに移行2. neptune 08/8/1(金) 22:20 発言
【57244】Re:CSVデータをACCESSに移行2. satsuki 08/8/2(土) 18:12 お礼

24891 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free