とある規格化されたコード

世の中こんなもんまで規格化されていますよ、というお話
https://ja.wikipedia.org/wiki/ISO_5218

この辺が大変良くできた、ためになる(？)解説記事です。(長い
https://qiita.com/aoshirobo/items/32deb45cb8c8b87d65a4
暇つぶしにどうぞ。

色々と議論になったときにISOの責任に転嫁できるということだけが最大の利点です。

ISO5218という数字を記憶しておけば(いつ来るかわからないけど)いざというときにドヤ顔できます！

IIS上に素の.htmlファイルを公開するだけで500(Internal Server Error)エラー

＜症状＞

IIS上に素の.htmlファイルを公開したらアクセスの最初に500エラーが発生。
再読込をすると正常にアクセス可能。
という症状が発生。

再読込をすると正常にアクセスできたので気にしてなかったら客先から指摘されてしまった。いろいろ弄ってると一定時間経つと「最初だけ500エラーが発生」の状況に戻ることがわかった。

Apache1.3の頃から使っていた者としてはナカナカ不思議な現象。
仮想ディレクトリ作ってhtmlファイル置いてるだけなんですけど。
まぁ、IISですからいろいろあるわな、と。

環境は以下の通り。
WindowsServer2012R2
IIS8.5

客向けのDEMOサイトのためHTML、CSS、JSのみのプレーンな作り。
サーバーサイドは.NetもPHPもASPも何もなし

＜調査＞

アクセスログによるとステータス500
sc-status：500
sc-substatus：19

とのことで

IIS 7.0、IIS 7.5、および IIS 8.0 の HTTP 状態コード


なんかを見ると

500.19 - 構成データが無効です。

とのこと。

....htmlファイル公開するだけなのにweb.configが要るんか！？
ってことでとりあえず空に近い以下のようなweb.configを設置。

<?xml version="1.0" encoding="UTF-8"?>
<configuration>
    <system.web>
    </system.web>
</configuration>

でも症状は変わらず。

＜対応＞

ググってググってグーグル先生もネタ切れの模様を呈してきたとこで
「アクセス権」の文字列を発見(残念ながら該当サイトは失念)

というわけで仮想ディレクトリとして指定した元のディレクトリを確認すると
IUSRの指定はあったけどIIS_IUSRSの指定が無いという
おなじみの状態につき、IIS_IUSRSにフルアクセスをくれてやった。
(アプリケーションプールユーザは追加せず)

数時間置いて確認を3度ほど繰り返し無事問題解決したことにした。

＜その後＞

とりあえず社内で報告を書いたところ「Blogに残しといてくれ」との依頼により、この記事の執筆に至る。

この記事を書くために、アクセスしたサイトをもう一度巡ったり、置いといたweb.configとってきたりする中で、上記の「sc-status」、「sc-substatus」の文字列が欲しかったのでもう一度アクセスログを開き、ヘッダ文字列をコピペ。

すると....

#Fields: …中略… cs(Referer) sc-status sc-substatus sc-win32-status time-taken

？？？？
「sc-win32-status」ナニコレ？美味しいの？

該当のログは
sc-status sc-substatus sc-win32-status
500 19 5

とあったので
sc-status：500
sc-substatus：19
sc-win32-status：5
ってことらしい。

ということでググってみる

System Error Codes (0-499)

ERROR_ACCESS_DENIED
5 (0x5)
Access is denied.

Access is denied！
Access is denied！！

チュドーン！＼(^o^)／

（500.19に文句を言いたい気持ちをぐっと抑えて）
ログはしっかり確認しましょうというあまり面白くもないオチと教訓でした。

（VB.NET）Windowsフォームから既定のブラウザを立ち上げてGoogle検索

需要ありそうで以外とサンプルが無い。

至って簡単。だからサンプルが無いのかもしれない 

※ボタンクリック時に既定ブラウザ立ち上げてテキストボックスの中身で検索するサンプル。

    Private Sub btnGGL_Click(sender As System.Object, e As System.EventArgs) Handles btnGGL.Click
        If Me.txt_workp.Text.Trim = "" Then Return
        Process.Start("https://www.google.co.jp/search?q=" & HttpUtility.UrlEncode(Me.txt_workp.Text.Trim))
    End Sub

検索した中身が取りたいとかFormアプリ上に表示したいとかそうゆうｾﾞｰﾀｸなご要望は WEB Search API とか WebBrowserクラスとか使えばいいと思うよ

(VBA)2D折れ線グラフのエラーバーにユーザー設定の値を設定する

グラフがいっぱいあると画面からポチポチやるの大変 
マジ腱鞘炎

        

  Dim bk As Workbook: Set bk = Workbooks("3rdData_AR2MN_グラフ.xlsx")
  Dim s As Worksheet: Set s = bk.Worksheets("data_all_AR2MN(p2)")
  Dim co As ChartObject
  Dim i As Long: i = 0
  
  Dim sumR As Long: sumR = 72
  Dim r  As Range: Set r = s.Range("E" & CStr(sumR))
  
  For Each co In s.ChartObjects
  
    Dim sc As Series: Set sc = co.Chart.SeriesCollection(1)
    Dim am(1) As Variant
    am(0) = r.Offset(0, i).Value
    am(1) = r.Offset(0, i + 1).Value
    
    sc.ErrorBar xlY, xlErrorBarIncludeBoth, xlErrorBarTypeCustom, am, am
    
    i = i + 3
    
  Next

sumRは合計行の位置で、要素が3列づつあるのでi+=3になってます。 
こまけーことはお気になさらずに。。。

（VBA）ある条件に合致したグラフのタイトルをまとめて書き換える

シート名で判別してグラフのタイトルをまとめて設定するテスト

        
Sub hoge()

  Dim bk As Workbook: Set bk = Workbooks("3rdData_p2_グラフ.xlsx")
  Dim s As Worksheet 
  
  Dim co As ChartObject, ch As Chart
  Dim buf As String
  
  For Each s In bk.Worksheets

    If InStr(1, s.Name, "AtRisk") > 0 Then

      For Each co In s.ChartObjects
        
        Set ch = co.Chart
      
        ch.HasTitle = True
        buf = ch.ChartTitle.Text
        
        ch.ChartTitle.Text = Replace(buf, "良好群", "Risk群")
            
      Next
      
    ElseIf InStr(1, s.Name, "malnu") > 0 Then

      For Each co In s.ChartObjects
      
        Set ch = co.Chart
      
        ch.HasTitle = True
        buf = ch.ChartTitle.Text
        
        ch.ChartTitle.Text = Replace(buf, "良好群", "危険群")
            
      Next

    End If

  Next

End Sub

つーかよ全部同じ名前にすんじゃねーよ確認しろよ

【VBA】Meってなんだ

今月2本目のUP、良いペースです。 おはよう御座います。部長です。
 皆様いかがお過ごしでしょうか？僕はイカが釣れません。






 で、

 今日は、アオリイカ用の新しいエギを25本買ったのでそのレビュー
じゃなくて、EXCELマクロを書く時にハマりがちな「Me」の取り扱いについてです。

これ。

「Me」英語で「私」。
プログラムをやっている人にはMeだのThisだのSelfだのでお馴染みだと思うのですが、
VBAで自動記録マクロから入るとあまり使う機会はありません。
あまり馴染みが無い割に、ちょっと込み入ったマクロを書こうとするととても大事な概念なのです。

「Me」とは、自分自身を示す修飾語です。

画像の例でいくと、Sheet1モジュールに対しての「Me（私）」ですから、Sheet1そのものを示します。
要するに、WorksheetObjectです。

ということは、標準モジュールでこうやって書くのと一緒です。

        
Sub selectSheet1A1()
  ThisWorkbook.Worksheets("Sheet1").Range("A1").Select
End Sub

同様に、ThisWorkBookモジュールでMeであればそれは自身のWorkBookオブジェクトを示します。

なんでコレが大事なのよ？当たり前じゃないよ？と思われるかも知れません。

下は、自動保存したマクロです。

        
Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveCell.FormulaR1C1 = "1"
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "4"
    Range("B7").Select
    ActiveCell.FormulaR1C1 = "5"
    Range("B3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("B3:B8").Select
    Range("B8").Activate
    ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
    Range("B3:B8").Select
End Sub

自動保存だけに要らんコードが満載・・・

マクロの内容は、B2～B7に1,2,3,4,5と入れて、B8でSUMしています。結果15ですよ的な。

        
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "2"

これで、B4を選んで、アクティブなB4に2って入れろという記述がしてありますが、
Rangeの頭には何もついていません。
実は、「ActiveWorkbook.ActiveSheet.」が省略されているのです。

これの何が恐ろしいかって、
例えば1行目から100行目までぐ～るぐ～る回しながら各列のセルを更新するような時間の掛かる処理を流している最中に、

「あ、時間かかるから別の作業しよう」

なんて別のワークシートをアクティブにした途端、
「ActiveWorkbook.ActiveSheet.」は切り替えた後のシートが対象となります。

そして、恐ろしいことにマクロでの実行結果はUNDO（Ctrl+Z）が効きません。
結果として、元のシートでは期待した結果が得られず、切り替えたシートでは最悪マクロによりデータが書き換えられてしまうのです・・・

そこで、「誰」に対してその処理を行うのか？を意識する事が大切なのです。
「Me」は自分自身に処理をしますよ、という修飾語です。
別のシートに対して処理をするのであれば、そのシートですよ！という修飾語が必要です。

Sub selectSheet1A1()
  ThisWorkbook.Worksheets("Sheet2").Range("A1").Select
End Sub

こんな。


「ThisWorkBook」を他のブックで指定すれば、別のブックを操作する事も可能です。

ちょっと込み入ったマクロを作る時は、意識してみて下さいね。


じゃ、イカ釣り行ってきます。

【Excel】繰り返しセルの値を更新する時のパフォーマンスアップ

こんにちは。部隊長です。
秋ですが飽きもせずExcelネタ。色々寒風寒々しくなってまいりました。

まず、Excelでセルに値を入れる時、ループで1セルずつ処理すると大変遅うございます。

こんなの。100行×100列処理

        
dim r as range, i as long, j as long
set r = thisworkbook.workshees("sheet1").range("a1")
for i = 0 to 100
  for j = 0 to 100
    range.offset(i,j).value = hoge
  next
next

処理時間は1秒弱でしょうか？ ScreenUpdating = False　を使えばほぼ気にならないですが、 実際のプログラムだとこのループの間に計算式や他のセル参照などが入っていたりしてどんどん重くなってしまっていると思います。

そこで・・・

値を予め二次元配列に入れて、同じ大きさのRANGEに貼り付けるととても速いのです。

こんな感じ

        
dim r as range, i as long, j as long
dim ary(100,100) as variant
set r = thisworkbook.workshees("sheet1").range("a1")
for i = 0 to 100
  for j = 0 to 100
    ary(i,j) = hoge
  next
next

r.resize(i+1,j+1) = ary

マクロが遅くてお困りの方、お試しください！

[Excel]簡単相関分析とt検定

こんにちは！残暑厳しいですが如何お過ごしですか？
自転車通勤してたら焼けすぎで遊びすぎに思われている部隊長です。
子供より黒いです。まずい。

また最近学術的な方面のお仕事をやらせて頂いているので、
復習も兼ねてExcelで相関分析とその検定方法について書いてみます。

[相関分析とは]
2つの要素に関連性があるのかどうかを調べます。
関連性とは、ある要素xが増えた時に、別の要素yも同じように増える傾向がある、とか。

[t検定とは]
2つの要素の関連性だけでは、標本数が少ない場合などに偶然関連性が強く出てしまうことや
逆に弱く出てしまう事があります。
そこで、2つの要素の平均値に統計的に明らかな差があるかどうかを調べることで、その相関関係も統計的に意味があると言える。のだそうです。たぶん。

[どんな時につかうの]
まず、2つの要素が数値の時。（ある、なしなどの選択肢や、1-2-3位などの順位では、別のやり方をします）
例えば・・・暑い夏にうまい冷えたビールを飲んだ量と、でた(?)量が相関するかどうか・・・

経験上相関しますけど。


1.　データを準備！

2.　プロットして相関関係を表示

(1)データエリアを選択して、挿入→散布図　
(2)レイアウト→近似曲線→線形近似曲線
(3)近似曲線を右クリック→近似曲線のオプション→グラフにR-2乗値を表示する
とすると、下のようなグラフが出来上がります。

※その他、式を表示したり好みでマーカーの色を変えたりしてます。

先ほど表示にチェックしたR-2乗値。これが2つのデータ間における、相関関係を表す値となります。

1に近づく程相関関係が強いですので、かなり強力に相関していますね。

やっぱり飲んだら出るんです。

3.　t検定の実施（=TTEST(データ1,データ2,片側/両側,検定の種類)）

空いているセルに「=TTEST(」と打ち込んで、第一引数に「のんだ」データ
第二引数に「でた」データを選択。
第三引数は、今回平均値の差が多くても少なくても関係無いので「両側分布」の2を選択。
第四引数は、等分散を検定していないのでWELCHの検定（非当分散を仮定）である3を選択。

・
・
・
すると、関数の結果としてp値が計算されます。
・
・
・

結果は0.000477（0.0477%）で、危険率1%未満です。
飲んだビールの量とでた(?)量には統計上有意差があり、関係が無いことが棄却され
やっぱり飲んだら出る(?)ことが証明されました！



※この実験結果はフィクションです。実際に測った(?)わけではありません！


サンプルファイルをコピー


記事とは全く関係ないですが、弊社は来月9/10より下記所在地へ移転致します。
移転後も変わらぬご愛顧、ご指導ご鞭撻を賜りますよう、社員一同お願い申しあげます。

【新事務所住所】
〒104-0032
東京都中央区八丁堀2丁目1-7白鳳ビル2階
TEL：03-5542-0642
FAX：03-5542-0643




大きな地図で見る

.NET カスタムコントロールの日付型初期値

こんばんは。部隊長です。 暑すぎてエアコン全開にしても32度しか下がりません。ECOです
本日もまたハマってしまったシリーズです。


環境はVB.NET NULLを許容するDataTimePickerを参考に、未入力が可能な日付コントロールを作成しているのですが、 
未入力時の初期値が何故か"2012/2/8"になっている事象が発覚（ずっとモヤモヤしていたのだがウヤムヤにして逃げｔ）

しかし初期値をもつプロパティを用意していて、Enter時に_isnullならMyBase.Valueを置き換えるようにしているのにも関わらず、まったく置き換わらない。なぜだ。
ソリューションの.Designer.vbファイルを見てみると・・・

        Me.cdtp_DateOpen.DefVal = New Date(2012, 2, 8, 0, 0, 0, 0)

これか・・・

作戦1。

    Public Property DefVal As Date = DateTime.Today

ﾀﾞﾒ・・・

作戦2

    Public Sub New()

        ' この呼び出しはデザイナーで必要です。
        InitializeComponent()

        ' InitializeComponent() 呼び出しの後で初期化を追加します。
        Me.DefVal = DateTime.Today　'<-これ
        
        AddHandler Me.Enter, AddressOf setDefaultValue

    End Sub

またﾀﾞﾒ・・・くそう

作戦3

    Protected Overrides Sub InitLayout()
        MyBase.InitLayout()
        Me.DefVal = DateTime.Today　'<-これ
    End Sub

ﾀﾞﾒ・・・なんでー！

ここで、プロパティのDefaultValueAttributeを思い出す。 ・

・

・

・

・

…orz



長くなったので結果からいくとコレでいけました

　　<categoryattribute("data")> _
    <defaultvalue("")> _
    Public Property DefVal As Date

日付型にキャストできないから当日日付になった・・・？


単に技術力の低さを露呈する記事にしかなっていないのはｷﾆｼﾅｲ


また！

【Excel】シートをFax送信するアドイン絶賛公開中！

ダウンロードはこちらから！

※Excel→PDF変換に「BullZipPDFPrinter」というフリーウェアを使用しています。

2011 年 10 月以降に公開された Excel 2007 の更新プログラムを適用すると表示通りに印刷できない

2011 年 10 月以降に公開された Excel 2007 の更新プログラムを適用すると表示通りに印刷できない



な、なんだってーーー！！！（AA略



今晩は。無隊長です。

表題の件、今年3月のMSサポートなのですが、これは困った。

なんでって医療関係者の方々から大絶賛されているMNA®スターターキットExcel版に影響するじゃないか。



今のところ当事象に関する修正パッチはまだリリースされておらず、
回避方法は該当のアップデートを削除する、との事です。

Hotfixは出てまして、弊社Excel2007環境では正常動作を確認しておりますが、
一般ユーザー様へはあまりお勧めできません。
（ちゃんとテストされてないから解決するかどうかわからないし余計ぶっ壊れるかもよと脅し文句が書いてあるものなので）

MSからの修正パッチを待ちましょう・・・