管理人Kのひとりごと

デジモノレビューやプログラミングや写真など

2017-01-01から1ヶ月間の記事一覧

末尾が"/"(スラッシュ)で終わるかどうか判定する(Excel)

\掲題の通り、Excelで末尾が"/"(スラッシュ)で終わるかどうか判定する方法。 たまにこういうのが必要になるので... =EXACT(IFERROR(FIND("/",A1,LEN(A1)),0),LEN(A1)) 実行例はこんな感じ 対象 True/False a/ TRUE a/b FALSE a/b/ TRUE a/b/c FALSE

晴海客船ターミナルへ行ってきました

掲題の通り、晴海客船ターミナルへ行ってきました。目的は、有名なオブジェを見るためです。晴海客船ターミナル本日のお供はGM1+14mm。定番の組み合わせです。 以下写真です。

XQ1とインテルはいってるタブレットを手放した

掲題の通り、XQ1とインテルはいってるタブレットを手放しました。いずれも綺麗に使っていたことから思った以上の値が付きました。http://k-hitorigoto.hatenablog.jp/entry/2016/02/13/000000_1:embed: それぞれにとってかわるモノたちがあり、出番を失って…

最下行アドレスを取得する(ExcelVBA)

カレントセルの列の、最下行アドレス(値の入力された最下行のアドレス)を取得する。 Option Explicit Sub カレントセル列の最後尾アドレスを取得する() Dim currentRange As Range Dim maxRowNum As Integer Dim tmpColumnName As String Dim columnName As …

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

掲題の通り、任意の複数のExcelブックのセルの値を取得する方法。 「の」が多いな。 Sub ボタン1_Click() Dim fileNames As Variant Dim fileName As Variant Dim tmpSheet As Worksheet fileNames = Application.GetOpenFilename(MultiSelect:=True) If IsA…

1月2日の盛岡

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

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

掲題の通り、全シートA1セルを選択するExcelVBAコード。 非表示シートがあるとアレですが、まぁ。 最後1シート目に移るのは好みです、はい。 Sub 全シートA1選択() Dim loopCount As Integer Dim sheetCount As Integer Dim tmpSheet As Worksheet sheetCoun…

あけましておめでとうございます、そして2017年の目標

あけましておめでとうございます。一年の計は元旦にあり、ということで目標を書いてみます。 1.80記事を書く 2016年は73記事だったので、キリよく80記事を書きます。365/80≒4.56ということで、週に1,2記事書ければ達成できそうです。 2.DB,SAを取得する 情報…