UncodeProduction
http://w.atwiki.jp/unkomashimashi/
UncodeProduction
ja
2020-06-26T19:10:36+09:00
1593166236
-
musicbotくん
https://w.atwiki.jp/unkomashimashi/pages/68.html
*なに
Discordサーバ「ヤギハウス」のmusicbotくんこと「Hey!メェン」で使えるコマンド一覧
*どう
詳しいのは[[こちら>>https://just-some-bots.github.io/MusicBot/using/commands/]]を参照
|コマンド|なにがどう|
|!summon|botくんの召喚(ヤギのPCがオンラインの場合に限る)|
|!play <URL>|youtubeのリストのURLとかニコニコのURLとか|
|!search <サービス名> <語句>|<サービス名>で<語句>の音楽を探しに行く。サービスはyoutube,yahoo,soundcloud|
|!np|今かかってる音楽|
|!queue|再生リスト一覧|
|!shuffle|リストのシャッフル|
|!clear|再生リストのクリア|
|!disconnect|botを切断する|
2020-06-26T19:10:36+09:00
1593166236
-
VBA[bugs]:ループ文のカウンタがオーバーフローする
https://w.atwiki.jp/unkomashimashi/pages/67.html
**なにがどう
ループ文を実行したときにループカウンタがオーバーフローする。
> Dim i As Integer
> For i = 1 To Worksheets.Count
> If Workbooks(fileName).Worksheets(i).name = "foo" Then
> Application.DisplayAlerts = False
> Workbooks(fileName).Worksheets("foo").Delete
> Application.DisplayAlerts = True
> End If
> Next
**原因
変数の初期化漏れ。
ループカウンタiを複数個所で使用したために発生していた。クソオブクソ
**修正後
> Dim i As Integer
> i = 0
> For i = 1 To Worksheets.Count
> If Workbooks(fileName).Worksheets(i).name = "foo" Then
> Application.DisplayAlerts = False
> Workbooks(fileName).Worksheets("foo").Delete
> Application.DisplayAlerts = True
> End If
> Next
2016-12-22T11:55:29+09:00
1482375329
-
VBA:[Tips]現在操作しているワークブック名を取得する
https://w.atwiki.jp/unkomashimashi/pages/66.html
**なにがどう
現在操作しているワークブック名を取得したい
**どう
>ThisWorkbook.Name
2016-12-20T14:23:52+09:00
1482211432
-
VBA:[Tips]時間の計算をする
https://w.atwiki.jp/unkomashimashi/pages/65.html
**なにがどう
エクセルで時刻の計算を行う
**どうするのか
-時間単位の場合
>(終了時刻-開始時刻)*24
-分単位の場合
>(終了時刻-開始時刻)*1440
2016-03-18T12:22:37+09:00
1458271357
-
VBA:[Tips]ステータスバーにメッセージを表示する
https://w.atwiki.jp/unkomashimashi/pages/64.html
**なにがどう
ステータスバーにメッセージを表示する
**どうするのか
>Application.StatusBar = "出力メッセージ"
2016-03-18T10:28:46+09:00
1458264526
-
VBA:[Tips]ある文字以降の文字列を取得する
https://w.atwiki.jp/unkomashimashi/pages/62.html
**なにがどう
ある文字列の、指定文字以降の文字を取得したい
**どうするのか
>Dim text As String
> text ="example@text.co.jp"
> text = Mid(text, InStr(text, "@") + 1)
取得文字列は@以降
2015-07-22T13:50:48+09:00
1437540648
-
VBA:[Tips]最終行を取得する
https://w.atwiki.jp/unkomashimashi/pages/61.html
**なにがどう
最終セルの行数を取得したい
**どうするのか
>With Range("A1").SpecialCells(xlLastCell)
> MaxRow = .Row
> MaxCol = .Column
>End With
2015-07-22T17:45:54+09:00
1437554754
-
VBA:[Tips]IEでHTMLファイルを開く
https://w.atwiki.jp/unkomashimashi/pages/60.html
**なにがどう
HTMLファイルをIEブラウザで開きたい
**どうするのか
> Dim objIE As Object
> Dim fileName As String
>
> fileName = "ファイルのフルパス"
>
> Set objIE = CreateObject("InternetExplorer.Application")
> objIE.Navigate fileName
> objIE.Visible = True
>
> Set objIE = Nothing
2015-07-21T10:16:09+09:00
1437441369
-
VBA:[Tips]文字列内に記号を挿入する
https://w.atwiki.jp/unkomashimashi/pages/59.html
**何がどう
文字列に記号を挿入したい
たとえば、電話番号090********にハイフンを追加して090-****-****のようにしたい
**どうするのか
>mid関数を使用する
>mid(文字列,開始文字位置,何文字目以降に挿入するか)
>Dim str as String
>str = "090********"
>Mid(str, 1, 3)& "-" & Mid(str,4,4)&"-"&Mid(str,8,4)
2015-07-15T09:45:40+09:00
1436921140
-
VBA:[Tips]UTF-7の文章を読み込む
https://w.atwiki.jp/unkomashimashi/pages/58.html
まだとちゅう
**なにがどう
文字コードUTF-7の文字列をエクセルで表示しようとすると文字化けしてしまい読むことができない
**なぜか
エクセルで読み込みできる文字コードがUnicodeまたはSift-JISであるため
**どうするのか
ADODB.Streamを用いて指定文字コード以外の文字コードを読み込みできるようにする。
読み込み時に文字コードを自動判別して読み取るように設定
>Charset = "_autodetect"
以下、コード
>Sub main()
> Dim txt As Object
> Set txt = CreateObject("ADODB.Stream")
> Dim row As Integer
> Const adReadLine As Long = -2 '行ごと読む
> row = 1
> txt.Type = 2
> txt.Charset = "_autodetect"
> txt.Open
>
> txt.LoadFromFile ("ファイルパス")
>
> Do While Not txt.EOS
>
> Cells(row, 1) = txt.ReadText(adReadLine)
> row = row + 1
> Loop
>
> txt.Close
>End Sub
**他
>adReadLine…一行ずつ出力する
**備考
この方法である程度の文字変換はできるようになるけれど一部文字化けが発生する。
2015-07-30T13:26:58+09:00
1438230418