「ExcelVBA」の編集履歴（バックアップ）一覧はこちら

ExcelVBA - (2006/04/12 (水) 22:18:57) の１つ前との変更点

追加された行は緑色になります。

削除された行は赤色になります。

<pre>
サンプルソース
</pre>
<pre>
Function getConf(strKey As String)AsString
</pre>
<pre>
Dim rngData As Range<br>
Dim i As Integer<br>
<br>
Set rngData = ThisWorkbook.Sheets("config").Range("rng_conf").CurrentRegion<br>
<br>
For i = 1 To rngData.Rows.Count<br>
<br>
　 If rngData.Cells(i, 1).Value = strKey Then<br>
　<br>
　　 getConf = rngData.Cells(i, 2).Value<br>
　　<br>
　　 Exit For<br>
　　<br>
　 End If<br>
　<br>
Next i<br>
<br>
End Function
</pre>

<pre>
サンプルソース
</pre>
<pre>
Function getConf(strKey As String)AsString
</pre>
<pre>
Dim rngData As Range<br>
Dim i As Integer<br>
<br>
Set rngData = ThisWorkbook.Sheets("config").Range("rng_conf").CurrentRegion<br>
<br>
For i = 1 To rngData.Rows.Count<br>
<br>
　 If rngData.Cells(i, 1).Value = strKey Then<br>
<br>
　　 getConf = rngData.Cells(i, 2).Value　　<br>
　　 Exit For<br>
<br>
　 End If　<br>
Next i<br>
<br>
End Function
</pre>