910k @Wiki
http://w.atwiki.jp/910k/
910k @Wikija2008-05-17T09:05:22+09:001210982722メニュー
https://w.atwiki.jp/910k/pages/2.html
2008-05-17T09:05:22+09:001210982722ブックマーク
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:=False</p>
<p>Set InpWkb = Nothing</p>
<p><br>
End Sub</p>
<br> 2006-05-28T18:14:58+09:001148807698ExcelVBA
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 strSaveDirName <> "" Then
</pre>
<pre>
strTmpName = strCurPath & "\free.xlt"<br>
strMakeFileName = strSaveDirName & "\make.xls"<br>
<br>
'テンプレートファイルを開く<br>
Workbooks.Open Filename:=strTmpName<br>
'テンプレートオブジェクトセット<br>
Set wbkTmp = ActiveWorkbook<br>
'新規作成ファイルのセット<br>
Set wbkMake = Workbooks.Add<br>
<br>
wbkTmp.Sheets(1).Copy After:=wbkMake.Sheets(3)<br>
ActiveSheet.Name = 1<br>
<br>
Application.DisplayAlerts = False<br>
'テンプレートファイルを閉じる<br>
wbkTmp.Close<br>
'不要なシートを削る<br>
wbkMake.Sheets(1).Delete<br>
wbkMake.Sheets(1).Delete<br>
wbkMake.Sheets(1).Delete<br>
'作成ファイルの保存<br>
wbkMake.SaveAs Filename:=strMakeFileName<br>
<br>
Application.DisplayAlerts = True
</pre>
<pre>
End If
</pre>
<pre>
End Sub<br>
</pre>
<pre>
'************************************************<br>
' 概要:フォルダ名を取得する<br>
'************************************************<br>
Function fncGetDirName() As String
</pre>
<pre>
With Application.FileDialog(msoFileDialogFolderPicker)<br>
If .Show = True Then<br>
fncGetDirName = .SelectedItems(1)<br>
End If<br>
End With<br>
End Function<br>
<br>
</pre></div>
<hr> 2006-05-14T00:13:15+09:001147533195PHP
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:001145281229トップページ
https://w.atwiki.jp/910k/pages/1.html
2006-04-12T21:50:28+09:001144846228