UVlookup・Umatch を作りました。

2017–09–19 (Tue) 21:29
Uvlookup は、VLOOKUPを下からする物です(Under Vlookupです)

Function Uvlookup(検索する文字列 As String, 範囲 As Range, 列番号 As Long)
Dim hani As Variant, owari As Long, MaxCol As Long, i As Long, j As Long
hani = 範囲
owari = UBound(hani, 1)
MaxCol = UBound(hani, 2)
For i = owari To 1 Step -1
If InStr(hani(i, 1), 検索する文字列) <> 0 Then
Uvlookup = hani(i, 列番号)
Exit For
End If
Next
End Function

Umatch は、matchを下からする物です(Under Matchです)
Function Umatch(検索する文字列 As String, 範囲 As Range)
Dim hani As Variant, owari As Long, MaxCol As Long, i As Long, j As Long
hani = 範囲
owari = UBound(hani, 1)
For i = owari To 1 Step -1
If InStr(hani(i, 1), 検索する文字列) <> 0 Then
Umatch = i + 範囲.Row - 1
Exit For
End If
Next
End Function

UVLOOKUPは使いやすいかもしれませんね。Matchも使いやすいかも……。どうかなあ??? 皆様是非お使い下さい。
あともう一つ作りたいので、今からそれを作ってきます(*^_^*)(*^_^*)

マクロの使い方PDF

2017–09–18 (Mon) 21:43
マクロの使い方を書いたPDFを作りました。
マクロの使い方 送付用.pdf

無題

こう言うようなPDFです。EXCEL2007、EXCEL2010の物を作成しました。EXCEL2013・2016はもうしばらくお待ち下さい。これは、ご自由にお配り頂いて構いません!!!


貯蓄額管理リスト

2017–09–18 (Mon) 18:07
貯蓄額管理リストが欲しいと言うリクエストが有ったので作ってみました。
貯蓄率も出すことが出来ます。

無題

ボーナスがある場合は追加して下さい。

貯金額管理リスト.xlsx

名前の定義を検索するマクロ-2

2017–09–14 (Thu) 18:45
'指定したセルが入力されている場合のみ、名前の定義を検索するマクロ
Function Sget2(基準セル As Range, 検索文字列 As String, 検索範囲名 As String, 取得範囲名 As String)

If 基準セル.Value = "" Then '対象セルがブランクなら
Sget2 = ""
Else
On Error Resume Next
basyo = WorksheetFunction.Match(検索文字列, Range(検索範囲名).Value, 0)
On Error GoTo 0
If basyo <> 0 Then
Sget2 = WorksheetFunction.index(Range(取得範囲名).Value, basyo)
Else
Sget2 = ""
End If
End If
End Function

綺麗に出来ました。。。
やっぱりきちんと欲しい物は作った方が良いですね~~~。

作業時間計算エクセル

2017–09–08 (Fri) 00:00
毎日使っている作業時間計算表を公開致します。

作業時間計算

無題

毎週日曜日に作業時間の一週間合計が出ます。
今月は作業時間がやや長いですね。
大体毎月同じぐらいですが……。

« 前へ | HOME |  次へ »

プロフィール

あゆみ

Author:あゆみ
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク