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

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

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

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

<pre>
サンプルソース<br>
</pre>
<pre>
※指定したシートの指定した範囲から単一データの値を取得する関数<br>
<br>
<br>
<br>
<br>
</pre>
<hr>
<div align="left">
<pre>
Function getConf(strKey As String)AsStringDim 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<br>
</pre></div>
<hr>

<pre>
サンプルソース<br>
</pre>
<pre>
※指定したシートの指定した範囲から単一データの値を取得する関数<br>
[[http://kudoken.com]]<br>
<br>
<br>
<br>
<br>
</pre>
<hr>
<div align="left">
<pre>
Function getConf(strKey As String)AsStringDim 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<br>
</pre></div>
<hr>