VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/09/04(Thu) 14:07
投稿者： よねＫＥＮ
Ｅメール：
ＵＲＬ：
タイトル： Re: まとめ方

> こんな長いのをモジュールで書いてみました。
> 簡単にする方法はないでしょうか？

その前にこの関数でどういうことをしようとしているのでしょうか？
関数のしようとしていること(仕様)は書いて下さいね。
処理を内容を維持しつつ簡潔に書きなおすには、表面上のコードの類似性を見るだけでなく、
そのコードの意味を理解することが重要になってきます。

それからコードを見るとExcel VBAのようですが、Excel VBAですか？バージョンは何ですか？
＃今回はこの辺りの情報はあまり重要ではないかもしれませんが、
＃技術系の質問ではこういう情報も明記しましょう。


例えば、コードの下記の部分では、

> If (col = 1) Then
>      If (row > 2) Then
>             Cells(row, col).Value = Cells(row - 1, col).Value
>             Cells(row, col).Value = "MW-25014"

3行目のコードは意味がありません。
要はcol=1、row>2のときは固定値"MW-25014"を代入するということでいいのでしょうか？
それとも「Cells(row, col).Value = Cells(row - 1, col).Value」の行は
何らかの記述ミスでしょうか？

他にも関数の仕様抜きで考えても論理的におかしいのでは？と思われる部分がいくつかあります。
このコードは実際のコードのコピペですか？
実際のコードでないなら、実際の動くコードを載せて下さい。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -