Option Explicit

Sub カレントセル列の最後尾アドレスを取得する()
    Dim currentRange As Range
    Dim maxRowNum As Integer
    Dim tmpColumnName As String
    Dim columnName As String
    
    Set currentRange = Cells(Rows.Count, ActiveCell.Column)
    maxRowNum = currentRange.End(xlUp).Row
    tmpColumnName = currentRange.Address(True, False)
    Set currentRange = Nothing
    
    columnName = Left(tmpColumnName, InStr(tmpColumnName, "$") - 1)
    Debug.Print columnName & maxRowNum
End Sub

2017-01-05

任意の複数のExcelブックのセルの値を取得する(ExcelVBA)

ExcelVBA Excel

掲題の通り、任意の複数のExcelブックのセルの値を取得する方法。
「の」が多いな。

Sub ボタン1_Click()
    Dim fileNames As Variant
    Dim fileName As Variant
    
    Dim tmpSheet As Worksheet
    
    fileNames = Application.GetOpenFilename(MultiSelect:=True)
    
    If IsArray(fileNames) Then
        For Each fileName In fileNames
            Workbooks.Open fileName
            Set tmpSheet = ActiveWorkbook.Worksheets(1)
            tmpSheet.Activate
           
            Debug.Print tmpSheet.Cells(1, 1).Value
           
            Set tmpSheet = Nothing
            ActiveWorkbook.Close
        Next fileName
    Else
        Exit Sub
    End If
End Sub

2017-01-03

1月2日の盛岡

写真 Panasonic_GM1

例年1月3日に自宅へ戻る際に盛岡で途中下車をしているのですが、今年は2日に戻ってくることになったため、2日に盛岡へ寄ってきました。
例年行ってるから、気が早いけど来年も同じように写真撮ろうかな。
お供はGM1+14-42EZ。コンデジ的に使えるけど、どうにもアマさを感じるんだよなぁ

駅前。全然雪ないね。
f:id:ksk1130:20170104000930j:plain
きっとイルミネーションになってるんだろうけど、なにせ昼だから...
f:id:ksk1130:20170104000931j:plain
でんでんむしに乗って。
f:id:ksk1130:20170104000932j:plain
バスセンター跡地。たしか10月はまだ建物があったと思うんだけど...なんだかさみしい。
f:id:ksk1130:20170104000933j:plain
盛岡八幡宮。人多い。入場制限が少しかかっていた。
f:id:ksk1130:20170104000934j:plain
こんな感じ。なんだかんだ1時間弱かかったと思う。雨が降り出したりして、アレな初詣になりました。
ちなみにおみくじは中吉でした。まずまずでしたかね。
f:id:ksk1130:20170104000935j:plain

2017-01-02

全シートA1セルを選択する(ExcelVBA)

ExcelVBA Excel

掲題の通り、全シートA1セルを選択するExcelVBAコード。
非表示シートがあるとアレですが、まぁ。
最後1シート目に移るのは好みです、はい。

Sub 全シートA1選択()

    Dim loopCount As Integer
    Dim sheetCount As Integer
    Dim tmpSheet As Worksheet
    
    sheetCount = ActiveWorkbook.Worksheets.Count
    
    For loopCount = 1 To sheetCount
        Set tmpSheet = ActiveWorkbook.Worksheets(loopCount)
        
        tmpSheet.Activate
        tmpSheet.Range("A1").Select
        
        Set tmpSheet = Nothing
    Next
    
    Set tmpSheet = ActiveWorkbook.Worksheets(1)
    tmpSheet.Activate
    Set tmpSheet = Nothing

End Sub