記事一覧
ExcelVBA:ボタン名に表示されたシートにジャンプする【ChatGPTレビュー付】
概要シートがたくさんあるファイルで、「各シートにジャンプできるボタンがあればいいな」と思ったので、VBAコードを書いて実装してみました。
ジャンプボタンの設定VBAコードはさておいて、ボタンの設定をします。
使うのは以下のポイント。
CELL関数の「filename」を使って、シート名が変わってもコードを変えずに済む
テキストボックスや図形と同じように、マクロボタン(フォームの方)に表示され
文字起こしAI「Whisper」でTwitterスペース音声を書き出してみた
■使用するツール・アプリケーションボイスレコーダー(Windows10標準搭載)
Google Colaboratory(Googleアカウントあればすぐ使用可能)
■文字起こしAI「Whisper」って?きっかけは、議事録の作成が面倒で色々調べているうちに見かけた、こちらの記事でした。
なんかすごい音声認識モデルというやつらしい。
弊社では色々な制約のため使用できなかったものの、どれくら
VBA100本ノックチャレンジ:71~80本目
2021年9月頃にやってたんだけどNoteの記事にしていなかった分です。
71本目。
自分の回答はこちら。
パワポの操作はほとんどしたことがないけど、WinActorのライブラリをいじっているときにちらっとググったのをうっすら覚えていたのが意外と役に立った。
72本目。
自分の回答はこちら。
コメントでも書いているけれどSelect CaseにCase A to Zが使えるだとか、Mi
VBA100本ノックチャレンジ:61~70本目
61本目以降は1本あたりの取り組みにかかる時間が伸びているため、Twitter上で進捗報告をすることにしました。ので、回答もそのリンクを貼ります。
61本目。
自分の回答はこちら。
Phoneticオブジェクト (Excel)
セルの指定されたふりがなテキスト文字列についての情報を表します。
<VB>
ActiveCell.Phonetics(1).Text = "フリガナ"
62本目。
VBA100本ノックチャレンジ:51~60本目
ますます苛酷になっていく。
51本目。
Public Sub VBA100本ノック_051() Const WSNAME As String = "目次" Dim wsResult As Worksheet On Error Resume Next Set wsResult = ThisWorkbook.Worksheets(WSNAME) If Err.Number >
VBA100本ノックチャレンジ:41~50本目
久々に着手。ようやく折り返しですけど正直めっちゃしんどい!!
41本目。
Public Sub VBA100本ノック_041() Dim cntCorrected As Long Dim i As Long For i = 1 To 10 Dim intL As Long Dim intR As Long Dim Operator As Stri
VBA100本ノックチャレンジ:31~40本目
7割くらい使ったことがないものなのでマクロ記録とGoogle先生だよりです。
31本目。
Public Sub VBA100本ノック_031() Dim ws As Worksheet Set ws = ActiveSheet Dim buf As String Dim w As Worksheet For Each w In ThisWorkbook.Works
VBA100本ノックチャレンジ:21~30本目
独学なりに何回か作ったことのある構成と、ない構成での差が大きくなってきました。
21本目。
Public Sub VBA100本ノック_021() Dim sBackupFolder As String sBackupFolder = ThisWorkbook.Path & "\BACKUP" If Dir(sBackupFolder, vbDirectory) = "" Then
VBA100本ノックチャレンジ:11~20本目
だんだん難しくなってきた。
11本目。
Public Sub VBA100本ノック_011() Dim ws As Worksheet Set ws = ActiveSheet Dim rw As Long For rw = 2 To ws.Range("A1").End(xlDown).Row With ws.Cells(rw, 3) I
VBA100本ノックチャレンジ:1~10本目
ExcelVBAは個人的によく使っていて、エクセルの神髄さんにもよくお世話になっているんですが、そういえば100本ノックはやったことがありませんでした。
コロナのワクチン接種(一回目)で今日明日とお休みなので、身体がつらくなければちょくちょく進めていきたいです。
まずは1本目。
Public Sub VBA100本ノック_001() With ThisWorkbook.Worksh