ユーチューブのエクセル動画を参考にして
株のブログ用記事の週間固定文言を作った
以下のように日付、曜日、固定文言をセルに表示したい
2022/10/5 水曜日 実現損益 円
2022/10/5 水曜日の売買履歴
・用途
一週間分の株のブログ用記事の週間固定文言を表示させたい。
C1,C2セルに年月を入力すると、B5以降に日付、曜日とE5,F5列に文字列を付加して表示させる
マクロは、B5セルに＝DATE(C1,C2,)を入力
TEXT()関数で曜日に変更
E5セルに文字列を付加する。ここでB5の日付はそのままコピーすると数字になるのでTEXT()関数で整形する。マクロの結合は＆マークで文字列をダブルクオーテーションで囲む
Windows版マーケットスピード2（marketSpeed2）とRSS、エクセルのマクロを利用して株価をチェックするメモ
＞エクセルファイルのダウンロードはない。ウィルスが混入している危険性をサーバ側かウィルス対策ソフトが誤解してブログの検索対象からこの記事を除外する可能性があるため
いままで、マーケットスピード1とRSS.exe（バックグラウンド実行プログラム）を併用して使用している。その後マーケットスピード2（marketSpeed2）で使用できるRSS版（バックグラウンド実行プログラムは不要）が使用できるようになった。また、たまにマーケットスピード1とRSS.exeが正常に動作しないことがあって、株価チェックに終日使用できないことがあった。
目的：マーケットスピード2（marketSpeed2）を使用して株価をチェックするマクロを作成する。
内容：指定した安値、高値に株価が到達したら、達成したことを知らせる表示にする、またはアラートサウンドを再生、もしくは両方に対応。
セルマクロを使用して指定した安値、高値に株価が到達したら、達成したことを知らせる。この場合、アラートサウンドを再生しなくても良い。
使用するファイル名：楽天証券からダウンロードしたファイル。stock_managemenet_samplesheet.xlsmを参考にする
VBAとセルマクロを使用して、指定した安値、高値に株価が到達したら、達成したことを知らせる表示にする、またはアラートサウンドを再生、もしくは両方に対応。この場合、エクセルファイルを２つ使用するかもしれない。一方で株価を取得して、もう一方でその株価部を取得して、VBAマクロで処理をする。
「RSS2判定処理」01.xlsm
別エクセルファイル「MK2RSSローソク足データ表示01.xlsm」が表示している株価を取得して、安値、高値チェック等を判定するVBAマクロを作成する。
MK2RSSローソク足データ表示01.xlsm
このシートに記入した企業コードの株価を表示させる。この株価を「RSS2判定処理」01.xlsm,Bookエクセルファイルが取得する
試作マクロ＞ 10行目以降に企業コードを入力して、株価取得ボタンをクリックすると、名称、現在値等をセルに表示するためのマクロを与えて表示する。なお、マーケットスピード２が起動している必要がある。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
Sub meigaraget() '株価取得ボタンのスクリプト Dim i As Integer Dim n, m As Integer Dim code 'Aの最終行を取得してループして株価を表示させる n = Cells(Rows.Count, "A").End(xlUp).Row For i = 10 To n 'Aセルの10行目からコードを入力する code = Cells(i, 1) If code <> "" Then '旧 "=RSS|'" & code & ".T’!銘柄名称" '新 =@RssMarket(A2,"銘柄名称")、ダブルクォーテーションは2個余分に付ける。よって見た目が3個になる Cells(i, 2).Value = "=@RssMarket(A" & i & "," & """銘柄名称""" & ")" Cells(i, 3).Value = "=@RssMarket(A" & i & "," & """現在値""" & ")" Cells(i, 4).Value = "=@RssMarket(A" & i & "," & """前日比""" & ")" Cells(i, 5).Value = "=@RssMarket(A" & i & "," & """前日比率""" & ")" Cells(i, 6).Value = "=@RssMarket(A" & i & "," & """始値""" & ")" Cells(i, 7).Value = "=@RssMarket(A" & i & "," & """出来高""" & ")" 'セルの列を追加するときにClearAll()にも空欄用のスクリプトを入れること End If Next i End Sub Sub clearAll() 'クリアボタン clearCode End Sub Sub clearCode() Dim n As Integer 'Aの最終行を取得してループして入力内容を空にする n = Cells(Rows.Count, "A").End(xlUp).Row For i = 10 To n Cells(i, 1).Value = "" Cells(i, 2).Value = "" Cells(i, 3).Value = "" Cells(i, 4).Value = "" Cells(i, 5).Value = "" Cells(i, 6).Value = "" Cells(i, 7).Value = "" Next i End Sub |
１０行目以降は何行でもOK。でもコードは４桁だけで文字列チェックはしてない。また間違ったコードを入力してもエラー等は表示させていない。マクロを作成しても数秒間タイムラグが発生するのは通信上の問題で、不具合ではないと思う。
株価が安値チェック、高値チェックの近辺を行ったり来たりすると、カウントがリセットされることで、何度も音声が再生されて、煩わしい、うるさくなる。
とりあえず、動きそうだったのでとりあえずメモ記録 シートhanteiとシートkabulistを使用する。シートkabulistに銘柄コードを入力する
シートkabulistのA列にコードを記載して、「銘柄取得」ボタンをクリックすると、hanteiシートに自動で移動する。コードは20個限定
するとシートhanteiにコード、名称、株価、I列からL列までのマクロが自動で登録される。登録数は20個の固定している。2022/01/24現在の仕様
シート名hantei
①I列のマクロ
②J列のマクロ
③K列のマクロ
④L列のマクロ
以前、マーケットスピードとRSS.EXE（実行タイプ）で作成した株価チェックエクセルは、VBAでループして、株価チェックを行っていた。今回も、マーケットスピード2とRSS（実行タイプではない）で作成しようとしたが、セルのマクロが更新されなかった。そのため、VBAによるループ処理をするマクロではなくて、セルに記載するマクロとした。
セルのマクロにしたことにより、複数の判定をセルに記載しその中で、他のセルを参照するため、複数のセルが無駄に多くなっている。
＞マクロの内容 2022/01/24時点
音声ファイルについては、各自使用するファイルを用意すること。自分は、上昇音、下落音を音声合成ソフトを使用してサウンドファイルに出力して使用した。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 |
'This is 「MK2判定処理」ブックファイル '一部しようしていない変数とか関数あり '一部グローバル変数は、ブックモジュール、[Thisworkbook]に記載した 'Public glbSoundCountArray() As Integer Public glbCount As Integer '２０こ 作る Public glbcompanyKobetsuCount1 As Integer Public glbcompanyKobetsuCount2 As Integer Public glbcompanyKobetsuCount3 As Integer Public glbcompanyKobetsuCount4 As Integer Public glbcompanyKobetsuCount5 As Integer Public glbcompanyKobetsuCount6 As Integer Public glbcompanyKobetsuCount7 As Integer Public glbcompanyKobetsuCount8 As Integer Public glbcompanyKobetsuCount9 As Integer Public glbcompanyKobetsuCount10 As Integer Public glbcompanyKobetsuCount11 As Integer Public glbcompanyKobetsuCount12 As Integer Public glbcompanyKobetsuCount13 As Integer Public glbcompanyKobetsuCount14 As Integer Public glbcompanyKobetsuCount15 As Integer Public glbcompanyKobetsuCount16 As Integer Public glbcompanyKobetsuCount17 As Integer Public glbcompanyKobetsuCount18 As Integer Public glbcompanyKobetsuCount19 As Integer Public glbcompanyKobetsuCount20 As Integer 'ReDim glbSoundCountArray(glbcompanyCount - 1) ' 19は最大値。全個数ではない。0-19で20個で、19が最大値。これがエクセル仕様 'For i = 0 To UBound(glbSoundCountArray) ' glbSoundCountArray(i) = 0 'Next i 'K7:循環参照でエラー =IF(OR(G7="DOWN",G7="UP"),myCell(),0) 'IFSに関数をいれると正常に機能しない。 =IFS(G7="DOWN",playCount(),G7="UP",playCount(),TRUE,countReset()) 'IFSは、条件文を無視して全部実行してる。しょうもない仕様かそれともバグか '★重要 bookを開いたときに実行する 'Private Sub workbook_open()は、[Thisworkbook]に記載する arrayは宣言できない Private Sub Worksheet_Activate() If ActiveSheet.name = "hantei" Then Debug.Print ("hantei open") '処理 End If End Sub 'Function myCellReset() As Integer ' myCellReset = 0 'End Function 'Function myCell() As Integer ' myCell = 1 'End Function 'Function hokanCell() As Integer ' from myCell() ' hokanCell = Int(Range("K7").Value) 'End Function '個別銘柄再生用の加算関数。20個ある。配列かコレクションにするとよい Function kobetsuPlayCount(m As Integer) As Integer Select Case m Case 1 glbcompanyKobetsuCount1 = glbcompanyKobetsuCount1 + 1 kobetsuPlayCount = glbcompanyKobetsuCount1 Case 2 glbcompanyKobetsuCount2 = glbcompanyKobetsuCount2 + 1 kobetsuPlayCount = glbcompanyKobetsuCount2 Case 3 glbcompanyKobetsuCount3 = glbcompanyKobetsuCount3 + 1 kobetsuPlayCount = glbcompanyKobetsuCount3 Case 4 glbcompanyKobetsuCount4 = glbcompanyKobetsuCount4 + 1 kobetsuPlayCount = glbcompanyKobetsuCount4 Case 5 glbcompanyKobetsuCount5 = glbcompanyKobetsuCount5 + 1 kobetsuPlayCount = glbcompanyKobetsuCount5 Case 6 glbcompanyKobetsuCount6 = glbcompanyKobetsuCount6 + 1 kobetsuPlayCount = glbcompanyKobetsuCount6 Case 7 glbcompanyKobetsuCount7 = glbcompanyKobetsuCount7 + 1 kobetsuPlayCount = glbcompanyKobetsuCount7 Case 8 glbcompanyKobetsuCount8 = glbcompanyKobetsuCount8 + 1 kobetsuPlayCount = glbcompanyKobetsuCount8 Case 9 glbcompanyKobetsuCount9 = glbcompanyKobetsuCount9 + 1 kobetsuPlayCount = glbcompanyKobetsuCount9 Case 10 glbcompanyKobetsuCount10 = glbcompanyKobetsuCount10 + 1 kobetsuPlayCount = glbcompanyKobetsuCount10 Case 11 glbcompanyKobetsuCount11 = glbcompanyKobetsuCount11 + 1 kobetsuPlayCount = glbcompanyKobetsuCount11 Case 12 glbcompanyKobetsuCount12 = glbcompanyKobetsuCount12 + 1 kobetsuPlayCount = glbcompanyKobetsuCount12 Case 13 glbcompanyKobetsuCount13 = glbcompanyKobetsuCount13 + 1 kobetsuPlayCount = glbcompanyKobetsuCount13 Case 14 glbcompanyKobetsuCount14 = glbcompanyKobetsuCount14 + 1 kobetsuPlayCount = glbcompanyKobetsuCount14 Case 15 glbcompanyKobetsuCount15 = glbcompanyKobetsuCount15 + 1 kobetsuPlayCount = glbcompanyKobetsuCount15 Case 16 glbcompanyKobetsuCount16 = glbcompanyKobetsuCount16 + 1 kobetsuPlayCount = glbcompanyKobetsuCount16 Case 17 glbcompanyKobetsuCount17 = glbcompanyKobetsuCount17 + 1 kobetsuPlayCount = glbcompanyKobetsuCount17 Case 18 glbcompanyKobetsuCount18 = glbcompanyKobetsuCount18 + 1 kobetsuPlayCount = glbcompanyKobetsuCount18 Case 19 glbcompanyKobetsuCount19 = glbcompanyKobetsuCount19 + 1 kobetsuPlayCount = glbcompanyKobetsuCount19 Case 20 glbcompanyKobetsuCount20 = glbcompanyKobetsuCount20 + 1 kobetsuPlayCount = glbcompanyKobetsuCount20 Case Else glbcompanyKobetsuCount1 = glbcompanyKobetsuCount1 + 1 kobetsuPlayCount = glbcompanyKobetsuCount1 End Select End Function Function kobetsuCountReset(m As Integer) As String Select Case m Case 1 glbcompanyKobetsuCount1 = 0 Case 2 glbcompanyKobetsuCount2 = 0 Case 3 glbcompanyKobetsuCount3 = 0 Case 4 glbcompanyKobetsuCount4 = 0 Case 5 glbcompanyKobetsuCount5 = 0 Case 6 glbcompanyKobetsuCount6 = 0 Case 7 glbcompanyKobetsuCount7 = 0 Case 8 glbcompanyKobetsuCount8 = 0 Case 9 glbcompanyKobetsuCount9 = 0 Case 10 glbcompanyKobetsuCount10 = 0 Case 11 glbcompanyKobetsuCount11 = 0 Case 12 glbcompanyKobetsuCount12 = 0 Case 13 glbcompanyKobetsuCount13 = 0 Case 14 glbcompanyKobetsuCount14 = 0 Case 15 glbcompanyKobetsuCount15 = 0 Case 16 glbcompanyKobetsuCount16 = 0 Case 17 glbcompanyKobetsuCount17 = 0 Case 18 glbcompanyKobetsuCount18 = 0 Case 19 glbcompanyKobetsuCount19 = 0 Case 20 glbcompanyKobetsuCount20 = 0 Case Else glbcompanyKobetsuCount1 = 0 End Select End Function 'カウントして、再生がリピートするのを防止する Function playCount() As Integer glbCount = glbCount + 1 playCount = glbCount End Function Function countReset() As String glbCount = 0 countReset = "non" End Function Function BeepMe(strCheck As String) As String If strCheck = "DOWN" Then 'Beep 'DOWN Shell "C:\Program Files\Windows Media Player\wmplayer.exe C:\Users\mased\Documents\CeVIO\合成\株価下落合成ヒューンと落下.wav", 1 ElseIf strCheck = "UP" Then Shell "C:\Program Files\Windows Media Player\wmplayer.exe C:\Users\mased\Documents\CeVIO\合成\株価上昇合成.wav", 1 'Beep 'UP End If 'Debug.Print ("beep") BeepMe = "PLAY" End Function 'セルのマクロで使用 Function soundPlay(strCheck As String) As String If strCheck = "DOWN" Then soundPlay = "PLAY" 'Beep ElseIf strCheck = "UP" Then soundPlay = "PLAY" ' Beep Else soundPlay = "non" End If End Function 'IFS関数をつかうと関数を全部トレースしてしまう。なんで？バグか 2022/01/17 Function soundAlert(check As Integer) As String 'switch case 1 Select Case check Case 1 'down 'Range("H7").Value = "sound" ERROR他のセルに値をいれようとするとエラー soundAlert = "DOWN" Case 2 'UP soundAlert = "UP" Case Else 'non soundAlert = "-*not yet*-" End Select End Function '==================================== '==================================== '==================================== Sub meigaraget() '株価取得ボタンのスクリプト Dim i As Integer Dim n, m As Integer Dim code Dim ws As Worksheet 'こっちは単数のsheet Dim wsKabulist As Worksheet glbcompanyCount = 20 '現在20個固定。理由は無限にすると処理が遅くて面倒なのとマクロとVBAの処理の面倒さで固定にした。 'Aの最終行を取得してループして株価を表示させる n = Cells(Rows.count, "A").End(xlUp).Row Debug.Print (n) Debug.Print (glbcompanyCount) '企業は20件固定。 If n > glbcompanyCount Then n = glbcompanyCount MsgBox ("登録できるのは20個です。21個目からは除外されます。") End If 'kabulistシートのコードをhateiシートのセルにコピーする Set ws = Worksheets("hantei") '複数sheets, Set ws=としないとオブジェクトエラーになる Set wsKabulist = Worksheets("kabulist") iStart = 15 '15行目から1番目が始まる For i = 2 To n + 1 'Aセルの10行目からコードを入力する code = wsKabulist.Cells(i, 1) If code <> "" Then '旧 "=RSS|'" & code & ".T’!銘柄名称" '新 =@RssMarket(A2,"銘柄名称")、ダブルクォーテーションは2個余分に付ける。よって見た目が3個になる ws.Cells(iStart, 1).Value = code ws.Cells(iStart, 2).Value = "=@RssMarket(A" & iStart & "," & """銘柄名称""" & ")" ws.Cells(iStart, 3).Value = "=@RssMarket(A" & iStart & "," & """現在値""" & ")" ws.Cells(iStart, 4).Value = "=@RssMarket(A" & iStart & "," & """前日比""" & ")" ws.Cells(iStart, 5).Value = "=@RssMarket(A" & iStart & "," & """前日比率""" & ")" ws.Cells(iStart, 6).Value = "=@RssMarket(A" & iStart & "," & """始値""" & ")" 'I cell 安値、高値セルマクロを入れる。2022/01/16 F:6, G:7, H:8 ,I:9 ws.Cells(iStart, 9).Value = "=IFS(" & "C" & iStart & "=0,""""" & "," & "C" & iStart & "="""",""""," & "G" & iStart & "="""",""""," & "H" & iStart & "="""",""""," & "G" & iStart & ">=C" & iStart & ",""DOWN""," & "H" & iStart & "<=C" & iStart & ",""UP"",TRUE,""not yet"")" 'J cell count '=IF(OR(G7="UP",G7="DOWN"),playCount(),countReset()) ws.Cells(iStart, 10).Value = "=IF(OR(I" & iStart & "=""UP"",I" & iStart & "=""DOWN""),kobetsuPlayCount(" & (i - 1) & "),kobetsuCountReset(" & (i - 1) & "))" 'K '=IF(AND(H7=1,G7="DOWN"),BeepMe("DOWN"),"non") ws.Cells(iStart, 11).Value = "=IF(AND(J" & iStart & "=1,I" & iStart & "=""DOWN""),BeepMe(""DOWN""),""non"")" 'L '=IF(AND(H7=1,G7="UP"),BeepMe("UP"),"non") ws.Cells(iStart, 12).Value = "=IF(AND(J" & iStart & "=1,I" & iStart & "=""UP""),BeepMe(""UP""),""non"")" ws.Cells(iStart + 1, 2).Value = "=@RssMarket(A" & iStart & "," & """最良売気配値""" & ")" ws.Cells(iStart + 1, 3).Value = "=@RssMarket(A" & iStart & "," & """最良買気配値""" & ")" ws.Cells(iStart + 1, 4).Value = "=@RssMarket(A" & iStart & "," & """出来高""" & ")" 'セルの列を追加するときにClearAll()にも空欄用のスクリプトを入れること iStart = iStart + 2 '奇数行がコードが入る End If Next i Worksheets("hantei").Select End Sub Sub clearAll() 'クリアボタン clearCode End Sub Sub clearCode() Dim n As Integer Dim wsKabulist As Worksheet Set wsKabulist = Worksheets("kabulist") 'Aの最終行を取得してループして株価を表示させる n = Cells(Rows.count, "A").End(xlUp).Row For i = 2 To n Cells(i, 1).Value = "" Cells(i, 2).Value = "" Cells(i, 3).Value = "" Cells(i, 4).Value = "" Cells(i, 5).Value = "" Cells(i, 6).Value = "" Cells(i, 7).Value = "" Next i End Sub '==================================== '==================================== Sub openCheckBook() 'エクセルファイルが開いているかをチェックする Dim checkFilePath 'ここにブックファイルの絶対パスを入れる予定。クラウドのパスが面倒なので後で入れる。 checkFilePath = "" If IsBookOpened(checkFilePath) <> True Then MsgBox ("MK2株価表示ONLYブックファイルが開いていません") End If End Sub '参考 ブックが開かれているかチェックする https://vbabeginner.net/check-if-the-book-is-open/ Function IsBookOpened(a_sFilePath) As Boolean On Error Resume Next '// 保存済みのブックか判定 Open a_sFilePath For Append As #1 Close #1 If Err.Number > 0 Then '// 既に開かれている場合 IsBookOpened = True Else '// 開かれていない場合 IsBookOpened = False End If End Function Sub copyFromBookSheet() 'copy from book sheet 2022/01/13 Dim bookfilename Dim temp Dim wb As Workbook 'workbooksコレクション（ｓあり）からWorkbookオブジェクト（ｓなし）へ渡す 'For i = 1 To Workbooks.Count ' Debug.Print (Workbooks(i).Name) 'Next i 'このファイル名は、静的変数に後でするつもりだったけどWokbookオブジェクトにした 'bookfilename = "MK2株価表示ONLY01.xlsm" Set wb = Workbooks("MK2株価表示ONLY01.xlsm") 'ここは別の関数にしてループ処理する Call nikkeiHeikin(wb) Call codeInfo(wb) End Sub Sub codeInfo(wb As Workbook) 'code 株価、始値等のセルをコピーする End Sub Sub nikkeiHeikin(wb As Workbook) '日経平均株価 ThisWorkbook.Worksheets("hantei").Range("B7").Value = wb.Worksheets("kabu1").Range("B4").Value '前日比 ThisWorkbook.Worksheets("hantei").Range("C7").Value = wb.Worksheets("kabu1").Range("C4").Value '前日比率 ThisWorkbook.Worksheets("hantei").Range("D7").Value = wb.Worksheets("kabu1").Range("D4").Value '先物 期近 ThisWorkbook.Worksheets("hantei").Range("B8").Value = wb.Worksheets("kabu1").Range("B5").Value '先物 期先 ThisWorkbook.Worksheets("hantei").Range("B9").Value = wb.Worksheets("kabu1").Range("B6").Value End Sub |
thisWorkbookモジュール内に記載したもの、試作中のため使用しない変数あり
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
'thisWorkbookモジュール内 Public glbPlayCheck As String 'non,play :再生しない、再生許可 Public glbPlayDone As String 'non,done :再生してない、再生終わった 'Public glbCount As Integer Public glbcompanyCount As Integer 'total number 'Public glbSoundCountArray() As Integer 配列は[ThisWorkBook]moduleここに記載できない 'ExcelVBAでは配列を定数として定義することが出来ない 'とりあえず配列をグローバル変数にできないので､おバカコードで､グローバル変数を20個作ってSelectで分ける 'あとでよいほうほうが見つかればそれに変更する '構造体の宣言は、ここでは宣言できない エラー 'Type personalInfo ' name As String ' sex As String ' age As Integer 'End Type Private Sub workbook_open() glbPlayDone = "non" glbPlayCheck = "non" Debug.Print ("glbPlayCheck=" & glbPlayCheck) glbCount = 0 Debug.Print ("glbCount=" & glbcompanyCount) glbcompanyCount = 20 End Sub |