■
VBA
VBA で TRIM を使う場合は、これ↓（関数と同じ処理が出来る）
１、セル内の文字の前後の空白を全て削除
２、セル内の文字の途中にある複数の空白を１つにする
Application.WorksheetFunction.Trim(" A B C ") ⇒ "A B C"
Sub MojiBunkatu()
Dim lr As Long
Dim lc As Long
Dim ar As Variant
Dim i As Long
lr = 2
Do
ar = Split(Cells(lr, 2), " ")
i = 0
For i = LBound(ar) To UBound(ar)
Cells(lr, 3 + i) = ar(i)
Next i
lr = lr + 1
If Cells(lr, 2) = "" Then
Exit Do
End If
Loop
End Sub
Accessのモジュールウィンドウを開いた状態で、メニューより[ツール]-[参照設定]を選択します。
[参照可能なライブラリファイル]の一覧の中から「Microsoft Excel 8.0 Object Library」や、Excelのバージョンによっては「Microsoft Excel 5.0 Object Library」をチェックします。
一例として、Accessのモジュールに次のようなコードを記述し、実行してみます。
Debug.Print Excel.Application.Round(100 / 3, 0)
Debug.Print Excel.Application.RoundDown(100 / 3, 3)
Debug.Print Excel.Application.Sum(10, 20, 30)
Dim str As Variant
With Range("A1") '←1.値が入っているセルを指定
str = .Value
For i = 1 To Len(str) '2.繰り返し処理Len関数で文字数を取得した文字数分繰り返す
Cells(2, i).Value = Mid(str, i, 1) '3.Mid関数を使用して変数iから1文字目を取り出してセルに入力
Next i
End With
VBA
VBA で TRIM を使う場合は、これ↓（関数と同じ処理が出来る）
１、セル内の文字の前後の空白を全て削除
２、セル内の文字の途中にある複数の空白を１つにする
Application.WorksheetFunction.Trim(" A B C ") ⇒ "A B C"
Sub MojiBunkatu()
Dim lr As Long
Dim lc As Long
Dim ar As Variant
Dim i As Long
lr = 2
Do
ar = Split(Cells(lr, 2), " ")
i = 0
For i = LBound(ar) To UBound(ar)
Cells(lr, 3 + i) = ar(i)
Next i
lr = lr + 1
If Cells(lr, 2) = "" Then
Exit Do
End If
Loop
End Sub
Accessのモジュールウィンドウを開いた状態で、メニューより[ツール]-[参照設定]を選択します。
[参照可能なライブラリファイル]の一覧の中から「Microsoft Excel 8.0 Object Library」や、Excelのバージョンによっては「Microsoft Excel 5.0 Object Library」をチェックします。
一例として、Accessのモジュールに次のようなコードを記述し、実行してみます。
Debug.Print Excel.Application.Round(100 / 3, 0)
Debug.Print Excel.Application.RoundDown(100 / 3, 3)
Debug.Print Excel.Application.Sum(10, 20, 30)
カメラについて
NVRは日立IPカメラの、
DI-Cx3xxシリーズとDI-Cx2xxシリーズ 、
EZ-Cx1xxシリーズ に対応しています。
ただし、動き検知などを使用する場合は、
カメラ側の設定が必要になります。なお、
EZ-Cx1xxシリーズは動き検知やアラーム入力、
拡声音声機能には対応していません。
旋回カメラコントロール
DI-CZ211（生産終了）
ネットカメラ
213万画素
DI-CB325
20万
DI-CS520
H.265。超解像処理技術対応。レンズ交換型。
DS-NR108
DS-NR1000
ネットワークカメラ
DI-CB325の予定
レコーダ
DS-NR108
DS-NR1000
違いは？ 超解像処理技術対応してるかどうか？
その技術があれば画像を拡大して車のNoのような細かい文字も
検出できるということ？
