2014年8月29日金曜日

(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クラスとか使えばいいと思うよ




2014年8月15日金曜日

(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
つーかよ全部同じ名前にすんじゃねーよ確認しろよ