Excel & VBA

INT（ ）で可能。日付は整数のシリアル値であるが、時間は小数扱いである。なので整数化してやれば日付のみ取り出せる

配列の添字の最大最小を調べるためのもの。1つ目は配列を入れる。までは普通。2つ目に次元をintegerで入れると調べる次元を指定できる。2次元配列で縦横それぞれ調べたければ

numCol = UBound(a,1) - LBound(a,1)

numRow = UBound(a,2) - LBound(a,2)

でいい。

これはもうひどいトラップ。「真の多次元配列（矩形配列）」と「ジャグ配列（不規則配列）」というものの違いに気づかねばならない。ジャグ配列というのは配列の要素が配列になってる「配列の配列」のやつ。例えば3x100の配列として、ジャグ配列だと、arr(0)で長さ100の1次元配列として扱える。要素までの記述はarr(0)(1)みたいな感じ。

これが「真の多次元配列」になっていると、それが出来ない。要素までの記述は、arr(0,1)のようになり、arr(0)としてのアクセスは拒否られる。1次元配列としての扱いができなくなる。

arr = Array(WorksheetFunction.Transpose(L.ListColumns("RNo").DataBodyRange.Value), _

WorksheetFunction.Transpose(L.ListColumns("IN/Roll").DataBodyRange.Value), _

WorksheetFunction.Transpose(L.ListColumns("Take").DataBodyRange.Value) )

として2次元配列を作った。この時点ではarrは各要素に配列を持った配列、つまり「ジャグ配列」になってる。各要素に使ってるTransposeはRangeを1次元配列化するため。

これに対して、配列の縦横を入れ替える Transpose() を2回使って、もとに戻してみる。

arrL = WorksheetFunction.Transpose(arrL)

arrL = WorksheetFunction.Transpose(arrL)

2つを比較。

しないと日本語が消える

'UTF-8に

Dim objSC As Object

Dim utf8 As String

Set objSC = CreateObject("ScriptControl")

objSC.Language = "Jscript"

utf8 = objSC.CodeObject.encodeURIComponent(total)

Set objSC = Nothing

パクってきたから詳細はわからんが。VBA内でjavascript使えるようにしてんのか？

VBAじゃなくてExcelやけど。

一旦なんでもいいので画像をセルに配置。その画像自身に式が書ける。

式で指定したセルがそのまま画像として表示される。何かしらのアクションで参照が変わるような式をかけば表示内容が変わっていく、というようなのも可。

だが、そういうとき少し注意しないといけない？

選択によって画像の表示内容が変わる、といったような場合。

=INDEX(リテイクテーブル[Thumbs],MATCH(15,リテイクテーブル[RNo]))

みたいな式を画像に書きたい。でも関数（ここではINDEXやMATCH）を使うとエラーになる。

=$A$1

みたいにダイレクトに指定する表記は問題ない。

マクロでSheetをコピーする時、非表示にしてるとエラーになる。例えば、コピーの元シートを非表示にしていて、シート上に配置したボタンクリックでそれをコピーするような場合。

もっと言うと「#00」として元を非表示にして隠しておき、シート上のボタンクリックでこれを複製したい時。

マクロの中で一度表示してから、コピー、再度非表示にする。

RetakeSheet.Visible = xlSheetVisible

RetakeSheet.Copy after:=Sheets(Sheets.count)

RetakeSheet.Visible = xlSheetVeryHidden

こんな感じ。

全てが不可解。止まるはずがないところでこれが出たら、Ctrl押しながら停止ボタンクリックで解決っぽい。

【参考サイト】

VBAのバグ – Excel職人＠LANCERS

ExcelVBAにおける不可解な「コードの実行が中断されました」 - #untitled note

別にええやんか...。やらせてくれよ...。プログレスバーの 'max' プロパティには1以上の整数を入れないといけない。いろいろ処理した結果、最大値が0になる可能性がある場合は、先に最大値を調べてからifなどで回避するしかないか。

テキストボックスのSelTextを使う。

.SelText

現在選択中の文字列。選択していない時はなにもない。このプロパティに文字列を代入すると、現在地にその文字列が挿入される。

.SelStart

カーソルの現在位置を示す数値。先頭の場合は0。

.SelLength

現在選択中の文字数。

WshNetworkを使用する。

• • 参照設定：Wiondows Script Host Object Model

  • ライブラリ名：IWshRuntimeLisbrary

Dim WshNetworkObject As Object

Set WshNetworkObject = CreateObject("WScript.Network")

MsgBox( WshNetworkObject.ComputerName )

ComputerName：PC名

UserName：ユーザー名

ちなみに取得したPC名は全て大文字になっている模様。