kkkkkm の回答履歴
- csvファイルを列数ごとに分割するExcelマクロ
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています。 これがないため作業が遅くなり困っています。 横に長い(列数が多い)csvファイルを指定した列数ごとに分割して複数のcsvファイルに分けたいのですができません。 行数ごとに分割して複数のcsvファイルに分けるExcelマクロは調べると複数出てくるのですが... 何かいい方法はないでしょうか? 以下がコードです。 https://yu-syan.sakura.ne.jp/?p=87 たぶんLine Input # ステートメントで行数ごとに読込している部分を列数ごとに読込すればできると思うのですがその動作をするステートメントが無いため困っています。 http://officetanaka.net/excel/vba/statement/LineInput.htm 以下がcsvファイルです。 https://drive.google.com/file/d/1W0O4R10ibNVRnzDzeZ9AKSRT9gueS3GZ/view?usp=drive_link #VBA #Excel #マクロ #csv #データ処理
- 締切済み
- Excel(エクセル)
- homura100
- 回答数8
- csvファイルを列数ごとに分割するExcelマクロ
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています。 これがないため作業が遅くなり困っています。 横に長い(列数が多い)csvファイルを指定した列数ごとに分割して複数のcsvファイルに分けたいのですができません。 行数ごとに分割して複数のcsvファイルに分けるExcelマクロは調べると複数出てくるのですが... 何かいい方法はないでしょうか? 以下がコードです。 https://yu-syan.sakura.ne.jp/?p=87 たぶんLine Input # ステートメントで行数ごとに読込している部分を列数ごとに読込すればできると思うのですがその動作をするステートメントが無いため困っています。 http://officetanaka.net/excel/vba/statement/LineInput.htm 以下がcsvファイルです。 https://drive.google.com/file/d/1W0O4R10ibNVRnzDzeZ9AKSRT9gueS3GZ/view?usp=drive_link #VBA #Excel #マクロ #csv #データ処理
- 締切済み
- Excel(エクセル)
- homura100
- 回答数8
- VBA コンボボックス
VBAコンボボックスで AAAを選択→処理A BBBを選択→処理B CCCを選択→処理C としている場合、 AAAを選択→処理Aの後、コンボボックスで再度AAAをクリックしても次の処理Aにいきません。いったんBBBをクリックしてしてAAAをクリックすると処理Aに行きますが、連続AAAをクリックして処理Aはできないでしょうか。 何か方法はありませんか? Private Sub ComboBox1_Change() If ComboBox1.Value = "AAA" Then ’処理Aへ ElseIf ComboBox1.Value = "BBB" Then ’処理Bへ Else ’処理Cへ End If End Sub
- ベストアンサー
- Visual Basic
- kuroneko733
- 回答数4
- VBA コンボボックス
VBAコンボボックスで AAAを選択→処理A BBBを選択→処理B CCCを選択→処理C としている場合、 AAAを選択→処理Aの後、コンボボックスで再度AAAをクリックしても次の処理Aにいきません。いったんBBBをクリックしてしてAAAをクリックすると処理Aに行きますが、連続AAAをクリックして処理Aはできないでしょうか。 何か方法はありませんか? Private Sub ComboBox1_Change() If ComboBox1.Value = "AAA" Then ’処理Aへ ElseIf ComboBox1.Value = "BBB" Then ’処理Bへ Else ’処理Cへ End If End Sub
- ベストアンサー
- Visual Basic
- kuroneko733
- 回答数4
- VBA コンボボックス
VBAコンボボックスで AAAを選択→処理A BBBを選択→処理B CCCを選択→処理C としている場合、 AAAを選択→処理Aの後、コンボボックスで再度AAAをクリックしても次の処理Aにいきません。いったんBBBをクリックしてしてAAAをクリックすると処理Aに行きますが、連続AAAをクリックして処理Aはできないでしょうか。 何か方法はありませんか? Private Sub ComboBox1_Change() If ComboBox1.Value = "AAA" Then ’処理Aへ ElseIf ComboBox1.Value = "BBB" Then ’処理Bへ Else ’処理Cへ End If End Sub
- ベストアンサー
- Visual Basic
- kuroneko733
- 回答数4
- Accessファイルを社内で共有
Microsoft Access で作ったデータベースファイルを社内で共有する方法を教えてください。全員がMicrosoftアカウントを持っていて、共有のSharePoint、Teams、Outlookがあります。
- 締切済み
- Access(アクセス)
- NKM_Chitose
- 回答数2
- グーグル スプレットシート 連続したコピー
=COUNTIFS('入力'!$B:$B,$A$3,'入力'!$A:$A,"表",'入力'!$C:$C,"勝") =COUNTIFS('入力'!$B:$B,$A$4,'入力'!$A:$A,"表",'入力'!$C:$C,"勝") ↑ここだけひとつづつ繰り上がる 上記のように二行のセルがあり下の行にこの数字を5678と自動で入力したいのですが連番しようとしても343434と繰り返しになってしまいます どうすればいいのでしょうか? 普通の123456という単体の数字なら連続した自動入力はできます
- ベストアンサー
- Excel(エクセル)
- noname#259298
- 回答数1
- csvファイルを列数ごとに分割するExcelマクロ
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています。 これがないため作業が遅くなり困っています。 横に長い(列数が多い)csvファイルを指定した列数ごとに分割して複数のcsvファイルに分けたいのですができません。 行数ごとに分割して複数のcsvファイルに分けるExcelマクロは調べると複数出てくるのですが... 何かいい方法はないでしょうか? 以下がコードです。 https://yu-syan.sakura.ne.jp/?p=87 たぶんLine Input # ステートメントで行数ごとに読込している部分を列数ごとに読込すればできると思うのですがその動作をするステートメントが無いため困っています。 http://officetanaka.net/excel/vba/statement/LineInput.htm 以下がcsvファイルです。 https://drive.google.com/file/d/1W0O4R10ibNVRnzDzeZ9AKSRT9gueS3GZ/view?usp=drive_link #VBA #Excel #マクロ #csv #データ処理
- 締切済み
- Excel(エクセル)
- homura100
- 回答数8
- Excel 行の罫線を後から挿入する方法をお願いい
Excelで 各行の横罫線を入れる場合罫線を入れた行をコピーして入れられますが データーを入れてから全行に横罫線だけを全行追加する方法をお願いいたします 罫線のある行をコピーすると文字までコピーされるので。。。。
- 締切済み
- Excel(エクセル)
- cyan3
- 回答数8
- Excel 行の罫線を後から挿入する方法をお願いい
Excelで 各行の横罫線を入れる場合罫線を入れた行をコピーして入れられますが データーを入れてから全行に横罫線だけを全行追加する方法をお願いいたします 罫線のある行をコピーすると文字までコピーされるので。。。。
- 締切済み
- Excel(エクセル)
- cyan3
- 回答数8
- Excel 行の罫線を後から挿入する方法をお願いい
Excelで 各行の横罫線を入れる場合罫線を入れた行をコピーして入れられますが データーを入れてから全行に横罫線だけを全行追加する方法をお願いいたします 罫線のある行をコピーすると文字までコピーされるので。。。。
- 締切済み
- Excel(エクセル)
- cyan3
- 回答数8
- VBAでフォルダ内のPDFファイルの一覧表(3)
つい先程 下記にご回答いただいてBSにして締め切ってしまった質問に関して。 https://okwave.jp/qa/q10185551.html 対象の拡張子を複数にするにはどうすれば良いのでしょう。 エクセルとワードを一括で検索や、エクセルもXLSX、XLMSとかありますので。 慌てて締め切ってしまいました。 「“ ”,” ”」「” ”」&「” ”」で試すも空しく・・・
- ベストアンサー
- Excel(エクセル)
- akira0723
- 回答数1
- Excel フィルタした値をセルに表示する関数
図のような表をつくり、表にはテーブル書式を設定しています。 B列で社名でフィルターをかけると、C列、D列の数値の集計は、SUBTOTAL関数(109)で行っており、フィルターをかけた最終行にその集計数値が表示されます(下部画像のようになる)。 ついでに、B列の最終行に、フィルターをかけた値(ここでは文字列の"あいう会社")を表示させたいのですが、どの関数を使えばよいのかわかりません。 フィルターに使った文字列を抽出する関数、 あるいはフィルタした値は常にB列の上から2行目にくるので、 これを参照してB列の最終行のセルに表示させる方法 はあるでしょうか?
- 締切済み
- Excel(エクセル)
- ketae
- 回答数1
- SUBTOTAL関数の[列名]指定
SUBTOTAL関数の[列名]指定が有効に動作するための方法を知りたい 図は、ある教本のサンプルExcelシートです。 テーブル全体には、 ホーム>テーブルとして書式設定 で、「テーブル1」という”テーブル名"が設定されています。 このD8セルに、 =SUBTOTAL(109,[金額]) と入力が事前にしてあり、フィルタリングをするとこのD8列の数値は変動します(集計が起こります)。① 同じことを、自分で手作業でテーブルを作成し、テーブル全体を「テーブル1」と設定/定義し、計算セルに =SUBTOTAL(109,[金額]) としましたが、「循環参照」の警告が出て、集計をしてくれません② この関数を入力したセルをダブルクリックしてみると、計算対象のセルは数式が入った自分のセルを含んでおらず、循環参照が起きていないようにみえます③ [金額]のところを、計算対象セル範囲に指定 例:=SUBTOTAL(109,D2:D22) してしまえば問題はないのですが、このやり方 すなわち =SUBTOTAL(109,[列名]) の入力で、一方のシートは(①)は集計でき、わたしが作った方(③)で集計がおこらない理由を知りたいです。
- ベストアンサー
- Excel(エクセル)
- ketae
- 回答数5
- SUBTOTAL関数の[列名]指定
SUBTOTAL関数の[列名]指定が有効に動作するための方法を知りたい 図は、ある教本のサンプルExcelシートです。 テーブル全体には、 ホーム>テーブルとして書式設定 で、「テーブル1」という”テーブル名"が設定されています。 このD8セルに、 =SUBTOTAL(109,[金額]) と入力が事前にしてあり、フィルタリングをするとこのD8列の数値は変動します(集計が起こります)。① 同じことを、自分で手作業でテーブルを作成し、テーブル全体を「テーブル1」と設定/定義し、計算セルに =SUBTOTAL(109,[金額]) としましたが、「循環参照」の警告が出て、集計をしてくれません② この関数を入力したセルをダブルクリックしてみると、計算対象のセルは数式が入った自分のセルを含んでおらず、循環参照が起きていないようにみえます③ [金額]のところを、計算対象セル範囲に指定 例:=SUBTOTAL(109,D2:D22) してしまえば問題はないのですが、このやり方 すなわち =SUBTOTAL(109,[列名]) の入力で、一方のシートは(①)は集計でき、わたしが作った方(③)で集計がおこらない理由を知りたいです。
- ベストアンサー
- Excel(エクセル)
- ketae
- 回答数5
- VBA 1004 エラー
前月まで動いたVBAが 今月下記デバックのエラーがでてしまいましたが、どのようなエラーか分かりません。 どなたか教えてください。 microsoft365に切り替わっていますが、そのせいでしょうか Workbooks.OpenText Filename:=ThisWorkbook.Path & "\" & DnTxFl, _ Origin:=932, StartRow:=1, DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(794, 1), Array(1000, 1)), TrailingMinusNumbers:=True
- 締切済み
- Excel(エクセル)
- MWMW30
- 回答数1
- SUBTOTAL関数の[列名]指定
SUBTOTAL関数の[列名]指定が有効に動作するための方法を知りたい 図は、ある教本のサンプルExcelシートです。 テーブル全体には、 ホーム>テーブルとして書式設定 で、「テーブル1」という”テーブル名"が設定されています。 このD8セルに、 =SUBTOTAL(109,[金額]) と入力が事前にしてあり、フィルタリングをするとこのD8列の数値は変動します(集計が起こります)。① 同じことを、自分で手作業でテーブルを作成し、テーブル全体を「テーブル1」と設定/定義し、計算セルに =SUBTOTAL(109,[金額]) としましたが、「循環参照」の警告が出て、集計をしてくれません② この関数を入力したセルをダブルクリックしてみると、計算対象のセルは数式が入った自分のセルを含んでおらず、循環参照が起きていないようにみえます③ [金額]のところを、計算対象セル範囲に指定 例:=SUBTOTAL(109,D2:D22) してしまえば問題はないのですが、このやり方 すなわち =SUBTOTAL(109,[列名]) の入力で、一方のシートは(①)は集計でき、わたしが作った方(③)で集計がおこらない理由を知りたいです。
- ベストアンサー
- Excel(エクセル)
- ketae
- 回答数5
- アクセスレポートのセクション繰り返しについて
いつもお世話になっております。 アクセスレポートの「セクション繰り返し」についてお聞きいたします。 グループ化した項目名をグループヘッダー0セクションにテキストボックスを配置して、「セクション繰り返し」を「はい」にし、印刷した際はそのグループ化した項目名がグループ化した全ページに印刷なるようにしました。 また、当該レポートではグループ化を2つしており、最初のグループ化(グループヘッダー0)で連番をふっています。 この最初のグループ化に連番をふるモジュール等は次のとおりです。 1 詳細セクションに非連結の「通し番号_GP」を配置し、ここにグループ化ごとの連番が表示なるようにしています。 2 グループヘッダー0セクションのフォーマット時に下記のモジュールを配置しています。 Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer) Me!通し番号_GP = 0 End Sub 3 詳細セクションのフォーマット時に下記のモジュールを配置しています。 Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) If FormatCount = 1 Then Me!通し番号_GP = Me!通し番号_GP + 1 End If End Sub ここで、グループヘッダー0の「セクション繰り返し」を「はい」にして印刷をすると、1ページ目は正しく連番になるのですが、2ページ目になると0から始まってしまい、連番でなくなってしまいます。 また、グループヘッダー0の「セクション繰り返し」を「いいえ」にして印刷をすると、今度は正しく次のページも連番となります。 別のグループ化のページになった際も、正しく1から始まり連番となります。 このように上手く連番がふることができず困っています。 希望する形としては、グループ化した名称がグループ化した全ページに印刷になること、さらにこのグループ化ごとの連番が次のページになっても正しく表示されることとなります。 上手く説明ができませんが、どうぞご教示くださいますようお願いいたします。
- ベストアンサー
- Access(アクセス)
- ankle
- 回答数1