cool0707 2023-03-17 06:37:54

[VBA] 敢えてその変数名にするのかー このエントリーをはてなブックマークに追加

投稿者からのアピールポイント

某ベンダーが構築したシステムが出力するエクセルファイル内に書かれていたコード。 ちなみにThisWorkbookが使えなくなるため、別のところでhogehogefilename = thisworkbook.Nameとして Workbooks(hogehogefilename )で呼び出していました。

Workbooks.Open pathFolder & "\" & filename
Dim thisworkbook As Workbook
Set thisworkbook = Workbooks(filename)
sheetcnt = thisworkbook.Sheets.Count
'ブック内のシートに対してループ
For i = 1 To sheetcnt
    Dim sheetname As String

使い方ヒント: 「これは臭う」という行を見付けたら、各行のsmellをクリックしてマーキングしておきましょう(要Twitter OAuth認証)

コメント

まだコメントがありません。最初にコメントを残しませんか?

コメント投稿には、twitter認証が必要です。

Twitter認証

このウンコードに臭った人は、こちらのウンコードにも臭ってます

[C] ( 0][0 )/

このエントリーをはてなブックマークに追加

とある組み込み系のコード。元気に動いては...

#define NUM_PORT 8
#define NUM_CHANNEL ...

鑑賞する »

[その他] マトリョーシカなtable

このエントリーをはてなブックマークに追加

数年前に作られたサイトの更新を依頼された...

<table width="100%"  border="0" cellspac...

鑑賞する »

[Java] フルHD推奨。

このエントリーをはてなブックマークに追加

画面の左側がわりと無駄な気がします。

public int hoge(){
    int result = 0;
...

鑑賞する »