Function データ加工_後半() '集計加工シートから集計Workシートにコピーして、 '並べ替えをして、集計して、集計シートに転送している Dim r As Long, lngLastRow As Long, lngPasteRow As Long Dim i As Long Dim KakouSheet As String, SyukeiSh
更新情報
Excel-VBA Excelのクローズボタン「×」を無効にし、マクロを使ってブックを閉じたい(終了させたい) Workbook_BeforeClose
Excelのクローズボタン「×」を無効にし、マクロを使ってブックを閉じたい(終了させたい)ブックを閉じる時に、マクロを使って欲しいことがあります。[ マクロでの方法 ]Excelブックを開いた後、メニュ画面の「開始」ボタンを押すことで、セルにフラグを立てる終了時、メニ
Excel-VBA データをCSVファイル形式に書き出す SaveAs FileFormat:=xlCSV
Sub CSVファイル作成() Dim TMPNAME As String, txtTMPNAME As String, myPath As String, szStr As String Dim Response As String Dim strMySheet As String Dim lngLastRow As Long '余裕を持った使用最大行数 Const MaxRowsCount A
Excel-VBA CSVファイルがエラーで開けない(SYLK ファイルであることを確認しましたが、読み込むことができません)
一行目の出だしが、『ID』で始まるCSVファイル、または、TXTファイルを Excelで開こうとすると、 ↓ ↓ ↓ ↓ ↓ ↓『 Excelは'ファイル名.txt'がSYLK ファイルであることを確認しましたが、読み込むことができません。ファイルにエラーが含まれるか、SYLK ファイル形
Excel-VBA CSVファイルを1行づつ読み込む Split関数 / Input / Line Input
小さいCSVファイルならば、高速に読み込むことを考えず、Textファイルに変換してから読み込まなくても良いだろう。コードも短く、読みやすいのが利点。また、全てのデータを読み込まずに必要なデータを入手したら止めることもできるし、データを処理しながら読み込むこともで
Excel-VBA マクロ有効ブックとして保存
マクロを書いたブックの保存方法です。Excel2013を例に解説します。VBEは独立したソフトではなく、Excelブックに付属した機能だと理解してください。その為、Excel本体を保存するとVBEの内容も保存されます。逆に、VBEで保存した場合でも、Excel本体の変更も保存されます。保
★Excel 2013対応 Excel-VBA Excel マクロを有効にする方法(コンテンツの有効化)
Excel マクロを有効にする方法(コンテンツの有効化)マクロが書かれているブックは、「コンテンツの有効化」を行い、マクロを有効にして利用します。では、マクロを有効にする方法をご紹介します。マクロが書かれているブックを開くと、セキュリティー警告が表示されます。
Excel-VBA ユーザーフォームを使い、ブックにパスワードを設定する Asc関数
パスワードは、Asciiコードを取得し、8文字以上で、半角の数字と英字の両方が含まれるようにしています。Option ExplicitPrivate Sub CheckBox1_Click() If Me.CheckBox1.Value = True Then Me.TextBox2.PasswordChar = "" Me.TextBox3.PasswordC
Excel-VBA ユーザーフォームのリストボックスにセル範囲の値を表示
Private Sub UserForm_Initialize() Dim i As Long Dim lngLastRow As Long lngLastRow = Sheets(con相手科目).Cells(con最大科目数, 1).End(xlUp).Row Me.ListBox1.RowSource = con相手科目 & "!A2:A" & lngLastRow End Sub ↓ faceb
Excel-VBA Imageコントロールに写真を表示 LoadPicture(strImgPath)
Private Sub UserForm_Initialize() Dim strImgPath As String strImgPath = "C:\Users\HIDE\Pictures\新しいフォルダー\1.jpg" With UserForm1.Image1 .Picture = LoadPicture(strImgPath) .
Excel-VBA WebBrowserコントロールにWebページを表示 UserForm1.WebBrowser1.Navigate strWebURL
Private Sub UserForm_Initialize() Dim strWebURL As String strWebURL = Cells(5, "E").Value 例:セルの値 http://www.yahoo.co.jp/ UserForm1.WebBrowser1.Navigate strWebURL End Sub ↓ facebook のフォローで応援してください。お願
Excel-VBA セルの列幅に文字列を収める 縮小 ShrinkToFit 折り返す WrapText
Sub セルの列幅に文字列を収める() '列幅に収まるように文字列を縮小 Range("C:E").Select With Selection .WrapText = False '列幅に収まるようにテキストを折り返す .ShrinkToFit = True '列幅に収まるように文字列を縮小 En
Excel-VBA ゼロ0と空欄""とEmptyの違い。 ゼロ0 空欄"" Empty
Sub test() If Range("A1").Value = 0 Then MsgBox "Yes" If Range("A1").Value = Empty Then MsgBox "Yes" If Range("A1").Value = "" Then MsgBox "Yes"End SubセルA1に、何も入っていない空欄の場合、結果は全てYesと表示されます セルA1に、数値のゼロ0
Excel-VBA ブックにパスワードを設定して保存終了する
ブックにパスワードを設定して保存終了作成時に作ったブックのパスワードを、ユーザーに好きなパスワードに変更してもらう時に使うマクロです。パスワードを設定する方法を説明する為、ここでは、インプットボックスでパスワードを指定していますが、実際にはユーザーフォー
Excel-VBA パスワードが設定されているブックを開く
ブックにパスワードが設定されていても、VBAでパスワードを指定して開くことができます。Sub OpenTest() Workbooks.Open ThisWorkbook.Path & "\Book2.xlsx", Password:="pass1234"End Sub ↓ facebook のフォローで応援してください。お願いします。Microsoft Off