|
▼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すれば
>もっと、良いアドバイスを受けられると思いますし、私より親切な方からも
>アドバイスを受けられると思いますよ。
全部コードを書くのは読むのが疲れるかなと思いましたが、必要な部分も足りなかったようですね。ご指摘ありがとうございました。
|
|