UncodeProduction
http://w.atwiki.jp/unkomashimashi/
UncodeProduction
ja
2020-06-26T19:10:55+09:00
1593166255
-
メニュー
https://w.atwiki.jp/unkomashimashi/pages/2.html
**メニュー
-[[トップページ]]
-[[VBA関連まとめ]]
-[[musicbotくん]]
-[[編集方法]]
-[[プラグイン紹介>プラグイン]]
-[[メニュー2]]
----
**リンク
-[[@wikiご利用ガイド>>http://atwiki.jp/guide/]]
// リンクを張るには "[" 2つで文字列を括ります。
// ">" の左側に文字、右側にURLを記述するとリンクになります
//**更新履歴
//#recent(20)
&link_editmenu(text=ここを編集)
2020-06-26T19:10:55+09:00
1593166255
-
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
-
トップページ
https://w.atwiki.jp/unkomashimashi/pages/1.html
*何がどう
-Java関連
-VBA関連
-環境設定関連
-他興味があること
とにかくやった事やった事詰んだ事困ったことを書いていく
ブログだとグチャグチャになったのでTipsの姥捨て山はこちらに変更
いろいろ書きたいけど、業務上VBA触ることが多いせいかVBAおおめのTipsになりそう
----
*誰が何
#image(キャプチャ.PNG)
ちゃんえぬ
何かございましたら@unkomashimashiにリプライかDMをお願いします
(たまに鍵垢になります)
最新Tipsは右側、ジャンルから大きく探したい人は左側のメニューから。
2020-06-26T19:02:13+09:00
1593165733
-
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関連まとめ
https://w.atwiki.jp/unkomashimashi/pages/14.html
*VBA関連
-バグ関連
[[VBA[bugs]:ループ文のカウンタがオーバーフローする]]
-ドキュメントのプロパティ値関連
[[VBA:[Tips]ユーザ設定のドキュメント値を書き込む]]
[[VBA:[Tips]ユーザ設定のドキュメントの値を取得する]]
-セル関連
[[VBA:[Tips]別ブックのセルから値をコピーする]]
[[VBA:[Tips]桁数を統一する]]
[[VBA:[Tips]セルを結合する]]
[[VBA:[Tips]最終行を取得する]]
-ブック系
[[VBA:[Tips]ブックを開く、閉じる]]
[[VBA:[Tips]アクティブワークブック名を取得する]]
[[VBA:[Tips]現在操作しているワークブック名を取得する]]
-シート系
[[VBA:[Tips]ワークシートをアクティブにする]]
[[VBA:[Tips]ワークシートの存在を確認する]]
[[VBA:[Tips]ワークシートをコピーする]]
[[VBA:[Tips]ワークシートを削除する]]
[[VBA:[Tips]行を削除する]]
-プログラミング関連
[[VBA:[Tips]変数・定数を宣言する]]
[[VBA:[Tips]関数を作成する]]
[[VBA:[Tips]フォルダ選択アラートを出す]]
[[VBA:[Tips]ループを強制的に抜ける]]
[[VBA:[Tips]日付が指定範囲内かを調べる]]
[[VBA:[Tips]フォルダ内にあるファイル名を検索する]]
[[VBA:[Tips]他オフィスアプリケーションをExcelVBAで操作する]]
[[VBA:[Tips]UTF-7の文章を読み込む]]
-ファイル系
[[VBA:[Tips]IEでHTMLファイルを開く]]
*エクセル関数編
[[VBA:[Tips]空白を削除する]]
[[VBA:[Tips]空白チェックを行う]]
[[VBA:[Tips]拡張子を削除する]]
[[VBA:[Tips]頭文字の0を出力する]]
[[VBA:[Tips]出力フォーマットを固定する]]
[[VBA:[Tips]指定文字でセルを分割する]]
[[VBA:[Tips]文字列内に記号を挿入する]]
[[VBA:[Tips]ある文字以降の文字列を取得する]]
[[VBA:[Tips]時間の計算をする]]
*エラー関連
[[VBA:[Error]オブジェクトが必要です]]
[[VBA:[Error]実行時エラー70 書き込みできません]]
*動作時間を短縮するためにやること
[[VBA:[Tips]画面描画を止める]]
[[VBA:[Tips]エラーアラートを表示しない]]
*他
[[VBA:[Tips]ステータスバーにメッセージを表示する]]
2016-12-20T14:24:12+09:00
1482211452
-
VBA:[Tips]現在操作しているワークブック名を取得する
https://w.atwiki.jp/unkomashimashi/pages/66.html
**なにがどう
現在操作しているワークブック名を取得したい
**どう
>ThisWorkbook.Name
2016-12-20T14:23:52+09:00
1482211432
-
右メニュー
https://w.atwiki.jp/unkomashimashi/pages/3.html
**更新履歴
2016-03-25T10:43:59+09:00
1458870239
-
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]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