記事一覧
【ﾕｰｻﾞ定義関数】区切った文字は何？
◆構文
uSplit(文字列, 区切文字, 番号)◆解説
ある区切り文字で区切られた文字列を、その区切り文字で区切り、区切られた各文字列を、一次元配列型に格納し、その番号となる文字列を返します。
◆ソースコード
Function uSplit(文字列 As String, 区切文字 As String, 番号 As Integer) Dim myStr As String, myD
【ﾕｰｻﾞ定義関数】指定した文字はいくつ入っている？
◆構文
uNumInStr(文字列, 対象記号)◆解説
ある文字列の中から 対象記号 がいくつ入っているかを調べる。
◆ソースコード
Function uNumInStr(文字列 As String, 対象記号 As String) Dim i As Long Dim cnt As Long cnt = 0 For i = 1 To Len(文字列)
【ﾕｰｻﾞ定義関数】デスクトップフォルダ
◆構文
MyDesktop()◆解説
セルに現在作業しているＰＣの"デスクトップフォルダ"を表示する
◆ソースコード
Function MyDesktop() MyDesktop = Environ("UserProfile") & "\Desktop\"End Function
◆補足
"\Desktop\" とすれば"ダウンロード"フォルダ
"\Documents\" とすれ
ＯＨＫＫ（大橋会館）
PLANETco.スタッフです。
このところシェアオフィスを検討しています。
10月1日の惑星会議（PLANETco.ミーティング）で
───────────
曜日や時間帯を選ばず、
より作業に集中できて
安心してリモートもできる個室があり、
安定的に少人数のミーティングもできる場所は？
───────────
そんなイメージで話し始めた時、
代表が産業新聞で情報を見つけたからと
沿線の新施
【ﾕｰｻﾞ定義関数】メアド結合
◆構文
MailAdd(範囲)◆解説
セルに入っているメールアドレスをOutlookの送信形式で結合する関数です。作成後はメール画面の To や Cc にコピペして下さい。
範囲 ：データを探すセルの範囲
◆ソースコード
Function MailAdd(MainV As Object) Dim maxN As Integer Dim m As Integer Dim
【備忘録】「エラーコード：1200」問題
◆問題点
Office365にサインインしたいが、「エラーコード：1200」が発生して認証されない
◆解決策
■ 1. Microsoft 365アカウントの切断
1.Windowsの「設定」を開く。
2．「アカウント」を選択。
3．メニューより「職場または学校にアクセスする」を選択。
4．接続済みのアカウントにMicrosoftアカウントが表示される場合はアカウントを選択し[切断] をクリ
名店で創立記念🥂 LANBRoA （ランブロア）
2023.9.1 私たち３人の 株式会社PLANETco. が誕生🌈✨
街歩きの途中偶然発見した素敵なお店で創立祝いをしました🥂✨
カウンター６席と、６人がけテーブル席のこぢんまりした店内。
入口に近いカウンター席に椅子を追加していただき３人並んで
シェアしたお料理を、iPhoneスナップご紹介します♪
初来店でしたが、カジュアルな接客がとても親しみやすく
アラカルトのみのお料理を、心地
【ﾕｰｻﾞ定義関数】今月末
◆構文
DATE(YEAR(NOW()),MONTH(NOW())+1,1)◆解説
来月１日から１を引く
YEAR(NOW()) ：今年
MONTH(NOW()) +1：来月
◆補足
１を引かないと 来月初 となる。
【VBA】ﾜｰｸｼｰﾄ印刷範囲の高速PDF化
◆解説
面倒な
・プリンターの設定変更 や
・ファイル名を都度指定
が不要になるPDF化方法です。
◆ソースコード
Sub printPDF() Dim fileSaveName As String fileSaveName = "C:\tmp.pdf" '変換するPDFファイル名 ActiveSheet.ExportAsFixedFormat _ Typ
【ﾕｰｻﾞ定義関数】Replace 代用品
◆構文
cReplace (文字列 , 検索文字列 , 置換文字列)◆解説
直感的ではない EXCEL の Replace関数を他のプログラミング言語風な書き方で処理します。
文字列 ：もととなる文字列を指定
検索文字列：検索する文字列を指定
置換文字列：置換する文字列を指定
◆ソースコード
Function cReplace(文字列 , 検索文字列 , 置換文字列) Di