ただ探すだけならFind()を使ったほうがいいけれど、複数のパターンを同一視し、２個以上あるか調べるという処理のときはループで回したほうが楽。 '見つからなかったらNothingで返す 'シート内に複数同じ項目があったらエラー。Cells(65536, 256)で返す '大…

Excel2007 1,048,576 行 16,384 列 Excel2000..Excel2003 65,536 行 256 列 ネタ元 http://www.excel.studio-kazu.jp/tips/0016/

A=1 M=13 みたいな '番号から列アルファベットを取得する ' '引数 aNumber 数字 '戻り値 対応する番号、失敗時は"" Public Function ConvertNumberToAlphabet(ByVal aNumber As String) As String If Not IsNumeric(aNumber) Then ConvertNumberToAlphabet =…

失敗は終わりではない。それを追求していくことによって、はじめて失敗に価値が出てくる。失敗は諦めたときに失敗になるのだ。 土光 敏夫(元経団連会長)