iSeries → IIS へのFTP

iSeries → IIS へのFTP

そのままのPassiveモードではうまくいかないらしい。

SENDPASV 0

で、OFFにする必要あり。

以下参照。

SENDPASV (PASV サブコマンドを送信するかどうかの指定)
http://publib.boulder.ibm.com/html/as400/v4r5/ic2962/info/RZAIQSENDPASV.HTM

偶数判断する場合

Excelで、偶数を判断する場合

Excelで偶数判断する場合は以下関数を使用する。

MOD(A2,2)=0

2で割り切れたら偶数、そうでなければ奇数。

日付などで、一日ごとにセル色を反転させて見えやすくする場合などに使えるかな。

複数条件時のSUMIFなケースは、SUMPRODUCT関数を使用する

複数条件時のSUMIFなケースは、SUMPRODUCT関数を使用する。

例
=SUMPRODUCT((A$9:A$65536="■")*(B$9:B$65536=$B$5)*(H$9:H$65536))

真×真×(集計値)　となる。

集計値＝100なら、1×1×(100)　→　100

偽が発生すると「0」となるため、条件に合わない、0倍として結果として0となる。

参考ページ
http://www.asahi-net.or.jp/~ef2o-inue/shiki/sub03_030_04.html

タスクシュート

毎日繰り返し行うタスクの登録を自動化する
http://cyblog.jp/modules/weblogs/195

タスクシュートを初めてみたが、マクロ環境が自分のPCでは問題ありなので、
シートをコピーして、関数を調整。あと並び替えのみマクロを使用してみる。

Sub タスクシュート並び替え()
' タスクシュート並び替え
' 並び替え1次キー：B8 昇順
' 並び替え2次キー：D8 昇順
' 並び替え3次キー：K8 昇順
'
ActiveWorkbook.Worksheets("タスクシュート").Sort.SortFields.Clear
Range("A8:L65536").Sort _
Key1:=Range("B8"), Order1:=xlAscending, _
Key2:=Range("D8"), Order2:=xlAscending, _
Key3:=Range("K8"), Order3:=xlAscending, _
Header:=xlYes, Orientation:=xlTopToBottom

End Sub

自分用にいろいろと試行錯誤中。

Wake On LAN

Wake On LANでコンピュータを起動する
http://www.atmarkit.co.jp/fwin2k/win2ktips/715wol/wol.html
・BIOSとデバイスの設定変更が必要。

RTX1000
■以下リリースノート参照。
http://www.rtpro.yamaha.co.jp/RT/docs/relnote/Rev.08.01/relnote_08_01_12.txt

ip lan3 wol relay unicast
※ユニキャストでうまくいかない場合は、ブロードキャストに変更。
ip lan3 wol relay broadcast

入力規則を使用して、全角で10文字以内を入力させる

入力規則を使用して、全角で10文字以内を入力させる。

=AND(ISERROR(FIND("""",O3)),ISERROR(FIND("''",O3)),ISERROR(FIND(CHAR(10),O3)),ISERROR(FIND(",",O3)),O3=JIS(O3),LEN(O3)<=10)
■エラーメッセージ
以下のいずれかの不正なデータが入力されています。
・「,」、「'」、「"」、改行は使えません。
・１１文字以上は入力できません。
・半角文字は使用できません。

やっつけ仕事で、Excelのバージョンアップを自動で行うバッチファイルを作成しました。
以下覚書。

バージョン管理は、ローカルにver02.txt、サーバ側にver01.txtを置いて、その中身を比較。
ver01.txtに最新バージョンのバージョンNoを記載します。

rem ******************************************************************
rem 初期処理
rem ******************************************************************
:start
@echo off
setlocal enableextensions enabledelayedexpansion
set p=C:\hogehoge\
set ver01=0
set ver02=0

rem ******************************************************************
rem VerファイルGET
rem ******************************************************************
:verget
ftp -n -s:%p%param_01 > %p%LOG.TXT

rem ******************************************************************
rem Verファイルの内容を比較
rem ******************************************************************
:hikaku
for /F %%i in (%p%ver01.txt) do set ver01=%%i
for /F %%j in (%p%ver02.txt) do set ver02=%%j
if %ver01%==%ver02% goto excel

rem ******************************************************************
rem 最新版Excelダウンロード
rem ******************************************************************
:verup
ftp -n -s:%p%param_02 > LOG.TXT
copy %p%100.xls %p%hogehoge.xls
del %p%100.xls
IF not %ERRORLEVEL%==0 GOTO err

rem ******************************************************************
rem Excel起動
rem ******************************************************************
:excel
copy %p%ver01.txt %p%ver02.txt
start "hogehoge" %p%hogehoge.xls /max
if not %ERRORLEVEL%==0 GOTO err
rem ******************************************************************
rem 終了
rem ******************************************************************
:end
exit

rem ******************************************************************
rem エラー処理
rem ******************************************************************
:err
echo ******************************************************************
echo ******************異常終了****************************************
echo ******************************************************************
pause > null
exit