VlookupN 解説付き

2017–10–05 (Thu) 01:29
VlookupN.pdf

Function VlookupN(検索する文字列 As Variant, 列番号 As Long, 範囲 As Variant, 前のセル As Range)
Dim hani As Variant
hani = 範囲
Dim MaxR As Long
Dim MaxH As Long
Dim RE, strPattern As String, msg As String, reMatch
Set RE = CreateObject("VBScript.RegExp")
MaxR = UBound(hani, 1)
MaxH = UBound(hani, 2)
Dim i As Long, j As Long, t As Long
For i = 1 To MaxR
For j = 1 To MaxH
If hani(i, j) = 検索する文字列 Then

With RE
.Pattern = strPattern
.IgnoreCase = True
.Global = True
strPattern = Replace(前のセル, "*", ".*")
For t = 1 To MaxH
On Error Resume Next
Set reMatch = .Execute(hani(i, t))
On Error GoTo 0
If IsEmpty(reMatch) = False Then
If reMatch.Count > 0 Then
VlookupN = reMatch(0).Value
If VlookupN <> "" Then
Dim IchiR As Long
Dim IchiC As Long
IchiR = i
IchiC = t
i = MaxR
j = MaxH
End If
End If
End If
Next
End With
End If
Next
Next
For IchiR = IchiR + 1 To MaxR
For IchiC = 1 To MaxH
If hani(IchiR, IchiC) = 検索する文字列 Then
VlookupN = hani(IchiR, 列番号)
End If
Next
Next
If VlookupN = 前のセル Then
VlookupN = ""
End If
End Function

シートを作成して貼り付ける

2017–10–01 (Sun) 22:07
シートを作成して貼り付ける

シートを作成して貼り付ける

Sub シートを作成して貼り付ける()
maisu = Application.InputBox(Prompt:="枚数を入力してください", Type:=1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Dim sheet As Worksheet
Set sheet = ActiveSheet
sheet.Cells.Copy
If ActiveSheet.PageSetup.PrintArea = vbNullString Then
For i = 1 To maisu
Worksheets.Add after:=Worksheets(ActiveSheet.Name)
ActiveSheet.Name = sheet.Name & "(" & i & ")"
Worksheets(sheet.Name & "(" & i & ")").Paste
Next
Else
area = ActiveSheet.PageSetup.PrintArea
For i = 1 To maisu
Worksheets.Add after:=Worksheets(ActiveSheet.Name)
ActiveSheet.Name = sheet.Name & "(" & i & ")"
Worksheets(sheet.Name & "(" & i & ")").Paste
With ActiveSheet.PageSetup
.PrintArea = Range(area).Address
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Next
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
End Sub

無題

ブックを開いたときにCSVのデータベースをコピーする

2017–09–29 (Fri) 22:21
「ブックを開いたときにCSVのデータベースをコピーする」マクロを作成しました。

VBAのエディタを開きMicrosoft Excel Objects の「Thisworkbook」に記入する。
・コピーしたいシート名 に シート名
・読み込むCSVをtxtファイルにする にアドレスを入れる
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim ws As Worksheet, flg As Integer
flg = 0
For Each ws In ThisWorkbook
If ws.Name = "コピーしたいシート名" Then
flg = 1
Exit For
End If
Next
If flg = 0 Then
ThisWorkbook.Worksheets.Add
ActiveSheet.Name = "コピーしたいシート名"
Dim aWb As Workbook
Set aWb = ActiveWorkbook
Dim aWs As ActiveWorkbook
Set aWs = Worksheets("コピーしたいシート名")
Dim TextPath As String

TextPath = "読み込むCSVをtxtファイルにする"
Workbooks.Opentext Filename:=TextPath, _
DataType:=xlDelimited, _
Tab:=True, _
Semicolon:=False, _
Comma:=True, _
Space:=False, _
Other:=True, _
Otherchar:="/"

ActiveWorkbook.Sheets(1).Cells.Copy aWs.Range("A1")
ActiveWorkbook.Close False

Application.ScreenUpdating = True
End Sub

無題

ブックを開いたときにCSVのデータベースをコピーする.pdf

表示マクロ マニュアル

2017–09–27 (Wed) 22:00
表示マクロ マニュアル.pdf

これから、マニュアルを色々と作成しなければならなくなりました。アドインの共有とかが出てくるので本当に大変です;;;

無題

結局メンテナンスをするのも私だし、メンテナンス出来る人がいなくなったらどうするんだろう……。私、移動の話でてるんだけどなあ← 代表から次の場所へって言われてるのよ!!!

表示マクロ

2017–09–25 (Mon) 22:26
Function HyouG(表示 As Variant)
HyouG = Format(表示, "g")
End Function
Function HyouGGG(表示 As Variant)
HyouGGG = Format(表示, "ggg")
End Function
Function HyouYYYY(表示 As Variant)
HyouYYYY = Format(表示, "yyyy")
End Function
Function HyouE(表示 As Variant)
HyouE = Format(表示, "e")
End Function
Function HyouM(表示 As Variant)
HyouM = Format(表示, "m")
End Function
Function HyouD(表示 As Variant)
HyouD = Format(表示, "d")
End Function

Function HyouGEN(表示 As Variant)
HyouGEN = Format(表示, "ge年")
End Function
Function HyouMG(表示 As Variant)
HyouMG = Format(表示, "m月")
End Function
Function HyouDN(表示 As Variant)
HyouDN = Format(表示, "d日")
End Function
Function HyouGGGEN(表示 As Variant)
HyouGGGEN = Format(表示, "ggge年")
End Function

無題

« 前へ | HOME |  次へ »

プロフィール

あゆみ

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

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク