910k @Wiki
http://w.atwiki.jp/910k/
910k @Wikija2008-05-17T08:58:56+09:001210982336ブックマーク
https://w.atwiki.jp/910k/pages/10.html
<p><a href="../../910k">http://www11.atwiki.jp/910k</a></p>
2008-05-17T08:58:56+09:001210982336差込印刷
https://w.atwiki.jp/910k/pages/9.html
<p>Option Explicit</p>
<p>
'******************************************************************************<br>
'内容:検索条件を指定し、結果を出力する<br>
'******************************************************************************</p>
<p>Sub subFilter()</p>
<p>Dim BaseDir As String<br>
Dim InpFile As String<br>
Dim OutFile As String</p>
<p>Dim InpWkb As Workbook<br>
Dim OutWkb As Workbook</p>
<p>Dim rngInp As Range<br>
Dim rngJouken As Range<br>
Dim rngOut As Range</p>
<p><br>
'カレントパス取得<br>
BaseDir = ThisWorkbook.Path</p>
<p>InpFile = BaseDir & "\" & "台帳.xls"</p>
<p>OutFile = BaseDir & "\" & "フィルタテスト.xls"</p>
<p>Set rngJouken = ThisWorkbook.Sheets("work").Range("検索条件")<br>
Set rngOut = ThisWorkbook.Sheets("main").Range("C12")</p>
<p><br>
Set InpWkb = Workbooks.Open(InpFile)</p>
<p>Set rngInp = InpWkb.Sheets("台帳").Cells(1, 1).CurrentRegion</p>
<p>rngInp.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=rngJouken,
CopyToRange:=rngOut, Unique:=False</p>
<p>InpWkb.Close SaveChanges:=F 2006-05-28T18:14:58+09:001148807698PHP
https://w.atwiki.jp/910k/pages/8.html
『PHP関連情報』
-リスト [[ExcelVBA]]
2006-05-05T15:29:06+09:001146810546どうなるの
https://w.atwiki.jp/910k/pages/7.html
すっごいよ~ 2006-05-05T15:22:53+09:001146810173Ajaxとは
https://w.atwiki.jp/910k/pages/6.html
なんですか? 2006-05-05T15:18:45+09:001146809925PHPtest
https://w.atwiki.jp/910k/pages/5.html
aaaaaaaaaaaa 2006-04-17T22:40:29+09:001145281229ExcelVBA
https://w.atwiki.jp/910k/pages/4.html
<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
</pre>
<pre>
Sub test()
</pre>
<pre>
Dim strCurPath As String<br>
Dim strTmpName As String<br>
Dim strActTmpName As String<br>
Dim strMakeFileName As String<br>
Dim strSaveDirName As String
</pre>
<pre>
Dim wbkTmp As Workbook<br>
Dim wbkMake As Workbook
</pre>
<pre>
Dim fName As String
</pre>
<pre>
'カレントディレクトリ指定<br>
strCurPath = ThisWorkbook.Path
</pre>
<pre>
'保存先フォルダ取得<br>
strSaveDirName = fncGetDirName()
</pre>
<pre>
<br>
If strSaveD 2006-05-14T00:13:15+09:001147533195メニュー
https://w.atwiki.jp/910k/pages/2.html
2008-05-17T09:05:22+09:001210982722トップページ
https://w.atwiki.jp/910k/pages/1.html
2006-04-12T21:50:28+09:001144846228