回答数
気になる
-
エクセルのVBAコードについて教えてください。
作業ブックのシートに Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 途中省略 If Range("$ER$3").Value = "■" Then Call Accessシート表示 End If End Sub を設定しております。 指定セルに「■」が表示されるとマクロ「Accessシート表示」が実行されるのですが、 作業の中で、マクロ「Accessシート非表示」を実行して「シート名:Access」を非表示にした後、 同じシートの指定セル以外のセルを変更した場合にもマクロ「Accessシート表示 」が実行されてAccessシート表示が表示されてしまいます。 マクロ「Accessシート非表示」を変更して、一度、シート名:Accessを非表示にした後は、手動で表示にしない限り、このシートを非表示出来る方法があれば教えてください。 現状のマクロ Sub Accessシート非表示() Worksheets("Access").Visible = False End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2024/06/28 11:33 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
6
0
-
マクロの記録を使用したマクロの実行について
当方、マクロ・VBA初心者です。 マクロの記録を利用し、マクロの作成を行いました。 既にデータが入力されているセルに対して、 ・行の追加 ・列の追加 ・セルの結合 を行うマクロの記録を行い、別シートにも同様の作業を反映させようとしたのですが、 マクロを実行したところ、データが入力されているセルに対しては作業が反映されず、 新規列・行が追加され、追加されたセルに対して作業が実行されました。 マクロの記録を行ったシートと、作業を反映させたいシートは同様の構成となります。 こちら、別シートの既存セルに対して作業を実行するにはどのようにしたらよいでしょうか。 ご教示いただければ幸いです。 ▼マクロの記録で作成されたマクロ Sub Macro1() ' ' Macro1 Macro ' ' Columns("I:K").Select Range("I2").Activate Selection.EntireColumn.Hidden = False Columns("I:J").Select Range("I2").Activate Selection.ColumnWidth = 20 Columns("C:C").Select Range("C2").Activate Selection.Insert Shift:=xlToRight Rows("4:4").Select Selection.Insert Shift:=xlDown Rows("6:6").Select Selection.Insert Shift:=xlDown Rows("8:8").Select Selection.Insert Shift:=xlDown Rows("10:10").Select Selection.Insert Shift:=xlDown Rows("12:12").Select Selection.Insert Shift:=xlDown ActiveWindow.SmallScroll Down:=6 Rows("14:14").Select Selection.Insert Shift:=xlDown Rows("16:16").Select Selection.Insert Shift:=xlDown ActiveWindow.SmallScroll Down:=3 Rows("18:18").Select Range("C18").Activate Selection.Insert Shift:=xlDown ActiveWindow.SmallScroll Down:=-27 Rows("3:18").Select Selection.RowHeight = 32 Range("J2:K2").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A3:A4").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With <セル結合の繰り返しのため中略> Selection.Merge Range("T17:T18").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A3:E18").Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""S""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent5 .TintAndShade = 0.799981688894314 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""D""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 16764159 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""DP""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 16764159 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub
質問日時: 2024/06/28 17:20 質問者: chimchim_yumyum カテゴリ: Visual Basic(VBA)
回答受付中
2
0
-
c言語のリダイレクトによる円の描画について
大学の課題で平均寿命、GDP、人口、国名のデータが入っているcsvファイルをリダイレクトで実行して、人口に応じた半径による円の描画がしたいのですが、以下に書いたプログラムでコンパイルは通るのですが結果が出力されません。原因のわかる方いらっしゃいますか?ちなみにrの値を30という風に指定すれば何の問題もなくBMP画像が生成されます。 int main( void ){ int x, y; int offset = 100; int life, GDP, pop; char name[100+1]; BMPnew(); while( scanf( "%d,%d,%d,%100s", &life, &GDP, &pop, name ) != EOF ){ x = GDP/100 + offset; y = BMP_height - (life-50)*20; int v, w; int r=pop; for( v=x-r; v<x+r; v++ ){ for( w=y-r; w<y+r; w++ ){ if( (v-x)*(v-x) + (w-y)*(w-y) < r*r ){ BMPpoint( v, w, 255, 255, 255 ); } } } } BMPsave(); return 0; }
質問日時: 2024/06/28 12:07 質問者: 山田ボールペン カテゴリ: C言語・C++・C#
ベストアンサー
4
0
-
4
{ CONTROL Forms.Label.1}が消えない
ワードでいたずらしていたらCaptionの文字と一緒に上記の文字が表示されるようになってしまいました。 どうしたら消えるでしょうか。
質問日時: 2024/06/29 05:40 質問者: payphone カテゴリ: その他(プログラミング・Web制作)
回答受付中
1
0
-
5
VBAでCOPYを繰り返すと、処理が途中でアイドルする原因はなんでしょうか
A列からE列までの5列で約3000行のデータがあります。これらのデータは2つのグループのデータが混在しています。それをグループ毎に振り分ける処理を作成しました。処理は正常に動作したのですが、処理に数分程度かかりました。 そこで50行毎の処理時間をセルに表示させるようにしたところ、700行程度までは数秒で処理できていますが、その後1分程度、処理がアイドルしています。その後また700~800行を数秒で処理し、またアイドルするの繰り返しでした。 解決策は見つけましたが、処理がアイドルする原因は何として考えられるか、教えていただけませんか。これまでこのような現象は経験がなく、気になっています。よろしくお願いいたします。 問題のステートメント Cells(idx, 1).Resize(1, 5).Copy Destination:=Cells(cntA, 7).Resize(1, 5) Application.CutCopyMode = False ' ← この行は、あってもなくても現象は変わらない なおCopyメソッドをやめて、地道に転記してみたら10秒程度で全ての処理が終わりました。 Cells(cntA, 7) = Cells(idx, 1) Cells(cntA, 8) = Cells(idx, 2) Cells(cntA, 9) = Cells(idx, 3) Cells(cntA, 10) = Cells(idx, 4) Cells(cntA, 11) = Cells(idx, 5) Windows10 Office Professional Plus 2019 です。
質問日時: 2024/06/27 13:21 質問者: zap35 カテゴリ: Visual Basic(VBA)
ベストアンサー
4
1
-
6
{ CONTROL Forms.Label.1}が表示されます
ワードでラベルコントロールを貼り付けると、本来ならキャプションが表示されるところ、上記の文字が表示されてしまいます。 どうなっているのでしょうか。
質問日時: 2024/06/29 06:49 質問者: payphone カテゴリ: Visual Basic(VBA)
回答受付中
1
0
-
7
【BAT(バッチ)ファイル】Webページが存在しているか404 not foundかを
【BAT(バッチ)ファイル】Webページが存在しているか404 not foundかを成否で識別出来るBAT(バッチ)ファイルの書き方を教えてください。 http://example.com/0000/1-1.html http://example.com/0001/1-1.html 〜 http://example.com/9999/1-1.html 0000ディレクトリから9999ディレクトリまでアクセスして1-1.htmlが存在しているか一括で自動化して調べて出力する方法を教えてください。 OSはAndroidまたはWindows10です。
質問日時: 2024/06/28 20:01 質問者: redminote11pro5G カテゴリ: XML
ベストアンサー
2
0
-
8
回答受付中
3
0
-
9
1、Rstudioで回帰直線を求めるために必要な関数はなにか?アルファベット2文字で答えよ。 2、r
1、Rstudioで回帰直線を求めるために必要な関数はなにか?アルファベット2文字で答えよ。 2、rstudioでデータを可視化するために、ライブラリをインストールする際に入力するコードは?半角27字 3、rstudioでtempというファイルの中身を確認するために必要なコードは?半角10字 誰かわかるかたお願いします
解決済
1
0
-
10
htmlの文字が縦書きになる
htmlは <div class="ochawanpage"> <h1 class="ochawan-subtitle"> お茶碗 </h1> </div> <img src="./images/ochawan" alt> </div> cssは .ochawanpage { font-size: 50px; font-family: "HannariMincho"; color: #212529; margin-top: calc(5/1366 * 100vw); margin-left: calc(233/1366 * 100vw); } というものを書いたのですが、「お茶碗」という言葉がなぜか縦書きになってしまいます。ある程度margin-leftの値が小さければ横向きなのですが、ある程度大きくなると勝手に縦書きになってしまいます。なぜでしょうか?
質問日時: 2023/03/01 21:31 質問者: riribestwanko カテゴリ: HTML・CSS
ベストアンサー
2
0
-
11
Version Control on Unity
<Unity でのバージョン管理> // 以上のような日本語タイトルですと、なぜか "不適切な表現が含まれています" という、警告文が表示され投稿できないため、止むを得ず英語でタイトルを書かせていただいております。読みにくくてすみません。 Unity でローカルリポジトリを作成し、バージョン管理をしたいのですが、何か良いの方法はあるでしょうか。クラウドなどに接続する必要なく、オフラインでできる方法が知りたいです。 何かわかる方がいましたら、ご回答いただけると幸いです。
質問日時: 2024/06/27 20:45 質問者: 眠れる森の美男 カテゴリ: その他(プログラミング・Web制作)
回答受付中
1
0
-
12
vbaにてseleniumを使用したedgeスクレイピング
vbaにて selenium basicを使用して edgeブラウザを操作しようとしています。 vbaからedgeを起動しようとしていますが vbaにて、Selenium.Webdriverをnewする行で、オートメーションエラー('-2146・・・')となります。 ◆下記、手順を実施 1)SeleniumBasic-2.0.9.0インストール 2).net Framework3.5有効化 3)edgedriverダウンロード seleniumのフォルダに上書き *バージョンは使用中のedgeブラウザの バージョンと同じにしてます 4)vba の参照設定追加 Selenium Type Libraryをチェック 5)vbaコード作成と実行 sub Dim driver As Selenium.WebDriver Set driver = new Selenium.WebDriver driver.Start "edge" End Sub ◆実行環境 Windows Home 11 23H2 64bit excel 2003 ◆補足 ・手順4の参照設定画面にて Selenium Type Libraryの場所に表示される ファイル名がselenium32.tlb(selenium64.tlbではない) とあり、気になりますが、変更できませんでした。 seleniumのフォルダにはselenium64.tlbも存在はしています。
質問日時: 2024/06/27 11:09 質問者: ゆu カテゴリ: Visual Basic(VBA)
回答受付中
1
0
-
13
0 == False はいいけど
True == 1のみならず中身があれば 1 以外の2 とかへたするとnon empty のobj も True とequivalent ってぜったいどこかで読んだ気がするんですけどてもとでかくにんすると全然そんなことないです。 なにとかん違いしたと思いますか?? ぜったいどこかで読みました Python
質問日時: 2024/06/22 20:09 質問者: ゆゆにゃ。 カテゴリ: C言語・C++・C#
ベストアンサー
3
1
-
14
プログラム言語について c言語もコードによって機械語に通訳されると知りました。直接機械が通訳しなくて
プログラム言語について c言語もコードによって機械語に通訳されると知りました。直接機械が通訳しなくても良い01コーンパイルの言語を使えば最速に動かせると思います。言語が分からなくてもコーンパイル実行後の言語を表示させて開発したら良いのでは無いのでしょうか?
質問日時: 2024/06/22 09:04 質問者: クラフトマイン カテゴリ: C言語・C++・C#
ベストアンサー
13
1
-
15
【ExcelVBA】インデックスが有効範囲にありません。の理由が分かりません
下記、VBAソースの一部ですが、やりたい処理は、 本体のマクロブックのSheet1のA2セルにフォルダのパスが、 C2、D2セルにセル位置が記載されています。 そのフォルダ内のすべてのエクセルを順番に開いて指定シートの指定範囲をコピーしたいのです。 各ブックのシート名は異なるのですが、VBAエディタから見たシートの番号はすべて同じなので、シート番号から特定して処理しようと考えました。 開いたブックのSheetIDが28のシートに対して、LeftUp(左上)から右下(RightDown)の範囲をコピーしたいのですが、 「インデックスが有効範囲にありません。」というエラーでストップしてしまいます。 LeftUp = Cells(2, 3).Value ' C2 RightDown = Cells(2, 4).Value ' D2 buf = Dir(Sheets("Sheet1").Range("A2").Value & "*.xlsm") Workbooks.Open Worksheets("Sheet1").Range("A2").Value & "\" & buf, UpdateLinks:=0 Worksheets(28).Range(LeftUp & ":" & RightDown).Copy 原因を教えて頂けると助かります。
質問日時: 2024/03/13 00:34 質問者: tanapyondai カテゴリ: Visual Basic(VBA)
解決済
3
1
-
16
VBSでテキストファイルの2行目から最終行までを別のファイルに出力
VBSで既存のテキストファイル(カンマ区切り)の2行目から最終行を 別のテキストファイルへ出力したいです。 よろしくお願いします。
質問日時: 2024/06/25 15:00 質問者: Mehco3 カテゴリ: その他(プログラミング・Web制作)
回答受付中
3
0
-
17
VBの色を変えるにはどうしたらいいですか?
VBの色を変えるにはどうしたらいいですか?
質問日時: 2024/06/25 12:47 質問者: あっきー126 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
18
ユーザーフォームに別シートからデータを反映させたい。
今回初めてマクロを使って入力フォームを作った初心者です。 教えてください。 TextBox1 お客様番号 TextBox2 お客様氏名 TextBox3 住所 TextBox1にお客様番号を入れると別シートのデータから ”TextBox2 お客様氏名”と ”TextBox3 住所”が反映されるような設定にしたいです。 また、お客様番号を入れて修正ボタンを押すと入力された内容が表示され修正が出来る設定にしたいです。 登録ボタンへのコードは下記の内容になります。 Private Sub CommandButton1_Click() '登録ボタンをクリックしたときの処理 Dim LastRow As Long Dim MyOpt As String Dim i As Long 'ユーザーフォームの内容をExcelに転記 With Worksheets("接点記録") '最終行にプラス1 LastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 .Cells(LastRow, 2).Value = Me.TextBox1.Text .Cells(LastRow, 3).Value = Me.TextBox2.Text .Cells(LastRow, 4).Value = Me.TextBox3.Text .Cells(LastRow, 5).Value = Me.TextBox4.Text .Cells(LastRow, 6).Value = Me.ComboBox1.Text .Cells(LastRow, 7).Value = Me.TextBox6.Text .Cells(LastRow, 8).Value = Me.TextBox7.Text .Cells(LastRow, 9).Value = Me.TextBox8.Text .Cells(LastRow, 10).Value = Me.TextBox9.Text TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" ComboBox1.Value = "" TextBox6.Value = "" TextBox7.Value = "" TextBox8.Value = "" TextBox9.Value = "" End With End Sub ご教示よろしくお願いいたします。
質問日時: 2023/11/03 08:46 質問者: yuki005 カテゴリ: Visual Basic(VBA)
ベストアンサー
10
0
-
19
テキストファイルの1行目のみを削除したい
PowerAutomateDesktopからテキストファイルの1行目を削除したいです。 テキストファイル(CSVカンマ区切り)から1行目を削除する方法を教えてください。 PADからの実行で実行可能なスクリプトは以下です。 ・DOSコマンド ・VBScript ・JavaScript ・Python これらであればどれを使用しても大丈夫です。 よろしくお願いします。
質問日時: 2024/06/25 11:54 質問者: Mehco3 カテゴリ: その他(プログラミング・Web制作)
回答受付中
4
1
-
20
バッチファイルで以下のようなものは作れますか? ・Microsoft Defenderでウイルススキ
バッチファイルで以下のようなものは作れますか? ・Microsoft Defenderでウイルススキャン実行 ・スキャンの進捗をプログレスバーなどで表示 ・スキャン結果をメッセージボックスで表示 よろしくお願いします
質問日時: 2024/05/30 11:18 質問者: chnicky_hap カテゴリ: C言語・C++・C#
ベストアンサー
1
1
-
21
プログラミング
おはようございます。 今日もB型事業所に通う私です。 アイスコーヒーを飲んでいます。 最近、エクセルVBAを始めたのですが楽しいです。 プログラミングって楽しいですよね?
質問日時: 2024/06/20 07:01 質問者: ともこん カテゴリ: Visual Basic(VBA)
ベストアンサー
6
0
-
22
公文書のxmlファイルの開き方が分かりません
マナポータルからダウンロードしたxmlファイルが開けないのでNETで調べるとGoogle Chromeでも開けると記載があるのですが、ファイルを「プログラムから開く」の一覧にChromeが出てきません。 仕方なくMicrosoft Edgeで試してみましたが文字化けしてしまいます。 出来ればGoogle Chromeで開きたいのですが。 Excelでも開けるらしいのですがこれも互換ソフトのせいか文字化けしてしまいます。 どなたか一番確実に開ける方法を教えてください。
ベストアンサー
2
0
-
23
PDFを(htmlのように)無限に縦長にする方法
先日PDFがhtml同様無限にスクロールできる仕様かと考えていたのですが、どうも(プリンターの設定による?)A4サイズで区切られてしまうようです。 html→PDFでやってもA4区切り html同様の無限に縦にスクロールし続けられるファイル形式にするにはどうすれば良いのでしょうか?
ベストアンサー
6
0
-
24
VBAコードについて教えてください。
作業ブックのシートに下記のコードを設定しております。 このコードは指定セルに("地番調査", "許可証")のどちらかの文字が表示された場合に 文字が表示された右横のセルに「後日図書の提出をお願いいたします。」 と表示されます。 このコードを変更して 指定セルに不特定な文字が表示された場合に 右横のセルに「後日図書の提出をお願いいたします。」 と表示出来る方法を教えてください。 現状のコード Private Sub Worksheet_Change(ByVal Target As Range) If Target.CountLarge > 1 Then Exit Sub If Intersect(Target, Range("C26:C31")) Is Nothing Then Exit Sub Dim arr1, arr2 arr1 = Array("地番調査", "許可証") Dim i As Long For i = 0 To UBound(arr1) If Target.Value = arr1(i) Then Target.Offset(, 3).Value = "後日図書の提出をお願いいたします。" Exit Sub End If Next i End Sub 以上です。 宜しくお願い致します。
質問日時: 2024/06/18 13:51 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
25
onedrive にexcelファイルをアップロードしようとするとエラーがでる。
忙しいところすいませんがご教授よろしくお願いいたします。onedrive にアップロードしようとすると、 アップロードできませんでした。 サーバーで指定されたパスが見つからなかったため、このファイルはアップロードされませんでした。 とエラーがでます。 どう対応すればよいのかわかりません。 よろしくお願いいたします。
質問日時: 2022/02/26 10:04 質問者: Y-1224 カテゴリ: Microsoft ASP
ベストアンサー
3
0
-
26
エクセルで集計したい。
Tシャツ注文の集計をしています。 エクセルで個人ごとの集計表を作りました。 氏名:色:サイズ:枚数:色:サイズ:枚数:色:サイズ:枚数:合計枚数 ●●:赤: S : 1:黒: L: 1:青: L: 2: 4 ●●:黒: S : 1:青: S: 1:赤: S: 1: 3 ●●:青: SS : 1:青: SS: 1:黒: L: 3: 5 このデータから、 以下のように色、サイズごとに集計させたいのですが、どうしたらよいでしょうか? サイズ:ss: S : L 黒 :0枚:1枚:4枚 赤 :0枚:2枚:0枚 青 :2枚:1枚:2枚 よろしくお願いします。
質問日時: 2015/06/27 10:58 質問者: gori3gogo2006 カテゴリ: CGI
ベストアンサー
1
0
-
27
CPUが16bitでも32bitOSでコンパイルしたコード(例えばintが4バイトと定義されている)
CPUが16bitでも32bitOSでコンパイルしたコード(例えばintが4バイトと定義されている)も問題なく動作するのですか? int型のサイズはCPUではなく、OSとコンパイラによって決まりますという人がいて気になります。
質問日時: 2024/06/25 08:08 質問者: だいぬ カテゴリ: C言語・C++・C#
ベストアンサー
7
0
-
28
Excel 範囲指定スクショについて Excelで範囲指定してスクリーンショットする機能がありますが
Excel 範囲指定スクショについて Excelで範囲指定してスクリーンショットする機能がありますが、自動化する方法はありますでしょうか? 流れとしては下記のような順序になります。 スクショ写真を貼り付けるセルを選択 ※ここはまだ手動です。 ↓ 自動:範囲指定のスクショ機能を動作させる ↓ 自動:範囲指定した箇所をスクショ ※指定する範囲は毎回同じです。 ↓ 自動:選択しているセルに貼り付け 文頭に(自動:)とついている文が自動化させたいところです。 分かる方いましたら、ご回答お願いします
質問日時: 2024/06/22 22:07 質問者: ピーマンナッツ カテゴリ: Visual Basic(VBA)
解決済
1
0
-
29
Excelのマクロについて教えてください。
下記のマクロを実行すると 連続して指定マクロが実行されます。 しかし、 マクロ「フォルダコピー新規」を実行した後に「戸建てファイルコピー」を実行すると それぞれ保存先を聞いてきます。 マクロ「戸建てファイルコピー」の場合は保存先を聞いてこず、「フォルダコピー新規」で指定したフォルダ内に保存出来る方法を教えてください。 現状のマクロ Sub 新規引き受け() Call フォルダコピー新規 Call 戸建てファイルコピー End Sub それぞれのマクロ Sub 戸建てファイルコピー() Const FileNewName As String = "総合引き受け(戸建て)" Dim Destinationfolder As Variant With Application.FileDialog(msoFileDialogFolderPicker) .Title = "保存先フォルダを選択してください" .InitialFileName = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\" If .Show = False Then Exit Sub Destinationfolder = .SelectedItems(1) End With Dim SourceFile As String Dim Extension As Variant For Each Extension In Array(".xlsm", ".xltm") SourceFile = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\審査用フォルダ\総合引き受け(戸建て)" & Extension Dim DestinationFile As String DestinationFile = Destinationfolder & "\" & FileNewName & Extension On Error Resume Next FileCopy SourceFile, DestinationFile On Error GoTo 0 Next End Sub と Sub 戸建てファイルコピー() Const FileNewName As String = "総合引き受け(戸建て)" Dim Destinationfolder As Variant With Application.FileDialog(msoFileDialogFolderPicker) .Title = "保存先フォルダを選択してください" .InitialFileName = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\" If .Show = False Then Exit Sub Destinationfolder = .SelectedItems(1) End With Dim SourceFile As String Dim Extension As Variant For Each Extension In Array(".xlsm", ".xltm") SourceFile = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\審査用フォルダ\総合引き受け(戸建て)" & Extension Dim DestinationFile As String DestinationFile = Destinationfolder & "\" & FileNewName & Extension On Error Resume Next FileCopy SourceFile, DestinationFile On Error GoTo 0 Next End Sub になります。 宜しくお願い致します。
質問日時: 2024/06/21 09:31 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
4
0
-
30
Python、プログラミングについて質問です
Pythonの問題です whileは使わないでかきたいのですが どなたかやり方教えてください for文を利用して隠された単語を当てるゲームを作成してください。 出題する単語リスト:["banana", "orange", "apple", "kiwi"] 条件: ・単語リストからランダムに出題 ・初期状態はすべて"-"で隠された状態にすること ・プレイヤーが挑戦できる回数は、文字数分可能(文字数はlen()でカウントすること) ・単語を当てる際は1文字ずつ受け取る想定でOK ・文字が問題の単語に含まれる場合はどこと一致しているのか表示 ・不正解の場合は、残りの挑戦回数を表示、挑戦回数がゼロになったら正解を表示 ・単語を全て当てた際は、コメントと当てた単語を表示 ・ゲーム終了後は、終了した旨を表示すること(繰り返し処理が終了後に表示) 表示例については以下の実行結果を参考にしてください! 【実行結果】 単語当てゲームへようこそ! 挑戦回数は4回です! 単語: ['_', '_', '_', '_'] 1文字、入力してください: a 不正解!残りの挑戦回数: 3 1文字、入力してください: i 正解!現在の単語: ['_', 'i', '_', 'i'] 1文字、入力してください: k 正解!現在の単語: ['k', 'i', '_', 'i'] 1文字、入力してください: w 正解!現在の単語: ['k', 'i', 'w', 'i'] おめでとう!単語は 'kiwi' でした! ゲーム終了。 単語当てゲームへようこそ! 挑戦回数は4回です! 単語: ['_', '_', '_', '_'] 1文字、入力してください: a 不正解!残りの挑戦回数: 3 1文字、入力してください: z 不正解!残りの挑戦回数: 2 1文字、入力してください: q 不正解!残りの挑戦回数: 1 1文字、入力してください: e 不正解!残りの挑戦回数: 0 残念!正解は 'kiwi' でした。 ゲーム終了。
質問日時: 2024/06/18 23:25 質問者: ぽぽぽい猫 カテゴリ: C言語・C++・C#
ベストアンサー
4
0
-
31
エクセルVBAコードで教えて下さい!
現在 、 Sub 円楕円1_Click() Dim i As Range Set i = ActiveCell With ActiveSheet.Shapes.AddShape(msoShapeOval, i.Left, i.Top, i.Width, i.Height) .Fill.Visible = False .Line.ForeColor.RGB = RGB(0, 0, 0) End With Set i = Nothing End Sub 上記コードで該当(土日)に〇を付けて編集しています。 このコードを結合したセルにも使えるようにするには、どのようにコードを編集すれば 良いでしょうか? ご教授のほどよろしくお願いいたします。
質問日時: 2024/06/18 17:28 質問者: TAKA0315m カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
32
vba クリップボードクリアについて教えてください
いつもお世話になります クリップボードのクリアについてWebで調べてみると下記の二つのやり方があります ① Application.CutCopyMode = False ② Public Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Public Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long Public Declare PtrSafe Function CloseClipboard Lib "user32" () As Long Sub ClearClipboard() OpenClipboard (0&) EmptyClipboard CloseClipboard End Sub 後者はAutoCadで”COPYHIST"でコピーして読み込んだ後、 クリップボードをクリアするときに使っていますが 今さながら違いについて疑問を持ち、投稿させていただきました ①と②の違い、使い分け等について分かりましたら教えてください 以上、よろしくお願い申しあげます
質問日時: 2024/02/26 10:50 質問者: 公共ごま カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
1
0
-
33
gcc13.2のバグ?
最近話題になってる gcc13.2の挙動。 これってバグなんでしょうか? それともプロトタイプしっかり前方に書かんと 何が起こるかわからんという教訓?
質問日時: 2023/12/08 09:15 質問者: tknakamuri カテゴリ: C言語・C++・C#
ベストアンサー
5
0
-
34
C言語について。
Visual studio Code で、C言語をコンパイル&実行したいのですが、どうすれば良いのかよく分かりません。教えて頂けると幸いです。最新のバージョンは1.72です。教えて頂けると幸いです。
質問日時: 2023/11/11 18:46 質問者: メラゾーム カテゴリ: C言語・C++・C#
解決済
2
0
-
35
ウェブマーケターの仕事は最近のGoogleアップデートで減ってますか? ウェブマーケターの友人に聞く
ウェブマーケターの仕事は最近のGoogleアップデートで減ってますか? ウェブマーケターの友人に聞くと対策しなくても企業のサイトが上位にきてくれるので、最近は、seo対策はあまりしないで、コンテンツ増やすのみらしいです。 現状はどうですか?
質問日時: 2024/06/27 09:27 質問者: satosatoplayboy カテゴリ: SEO
回答受付中
1
0
-
36
IT業界より楽に稼げる業界ってあるんですか?銀行とか?
IT業界より楽に稼げる業界ってあるんですか?銀行とか?
質問日時: 2024/02/19 12:56 質問者: だいぬ カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
12
0
-
37
css初心者 フレックスボックスの適用を一部適用除外したいですが方法が分かりません。
添付画像のように、フレックスボックスを使って、「小」かつ「大」部を横のセンター配置しようとしているのですが、フレックスボックスを使うと、「文字サイズ」部まで一緒に横並びしてしまいます。「文字サイズ」部だけを適用を外したいです。画像は私のコーディングの#fsize でフレックスボックスをコメントアウトしています。 html*********************** div class="out-wrapper" id="fsize"> <p>文字サイズ</p> <ul> <li id="small"><a href="#" onclick="setActiveStyleSheet('default'); return false;" title="文字サイズ「小」"></a></li> <li id="large"><a href="#" onclick="setActiveStyleSheet('change'); return false;" title="文字サイズ「大」"></a></li> </ul> /div> ****************************** css**************************** /*文字サイズ変更ボタン(※文字サイズを「大」にした時の設定はchange.cssで行う) ---------------------------------------------------------------------------*/ /*ボタンブロック全体*/ #fsize { position: absolute; right: 1%; /*ヘッダーブロックに対して右からの配置指定*/ top: 0vmin; /*ヘッダーブロックに対して上からの配置指定*/ width: 120px; /*ブロック幅*/ background: #fff; /*背景色*/ box-shadow: 0px 0px 8px rgba(0,0,0,0.2); /*影の設定。右へ、下へ、ぼかし幅。rgbaは色設定で0,0,0は黒。0.2は20%色がついた border-radius: 0px 0px 5px 5px; /*角丸のサイズ。左上、右上、右下、左下への順。*/ padding: 10px 0px; /*上下、左右へのボックス内の余白*/; /*display: flex; align-items: center; justify-content: center;*/ } /*「文字サイズ」のテキスト*/ #fsize p { font-size: 18px; /*文字サイズ*/ padding: 0 12px; /*上下、左右への余白*/ } /*文字サイズボタン1個あたり*/ #fsize ul { display:flex; background: #fff; align-items: center; } #fsize ul a { overflow: hidden; text-decoration: none; color: #fff; /*文字色*/ height:100%; } #fsize ul li#small a::before { display:inline-flex; align-items: center; justify-content: center; content: "小"; /*「小」の文字を出力*/ font-size: 16px; /*文字サイズ*/ height: 25px; width: 25px; background: #779eec; /*背景色*/ margin-right: 10px; } /*「大」ボタン設定*/ #fsize ul li#large a::before { display: inline-flex; align-items: center; justify-content: center; content: "大"; /*「大」の文字を出力*/ font-size: 20px; /*文字サイズ*/ background: #ccc; /*背景色*/ width: 30px; /*幅*/ height: 30px; /*高さ*/ } /*マウスオン時の「大」ボタン設定*/ #fsize ul li#large a:hover::before { background: #779eec; /*背景色*/ }
ベストアンサー
2
0
-
38
c#のTLS1.2での通信について
私が担当している客先では、C#を使用したWebシステムを構築しています。 外部とのhttps通信をしているのですが、接続先が変更となりました。 その結果、今までTLS1.0で通信できたのですが、TLS1.2を使用しないと接続できないことがわかりました。 こちらでプログラムを修正し、TLS1.2での通信を可能としたいのですがどのようにしたらいいでしょうか。こちらで調べた限りだと、「ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12;」というコードを追加すればいいようなのですが、どこに追加すればいいのかがよくわかりません。 どなたかご教示頂ければと思います。 宜しくお願いします。
質問日時: 2023/11/04 00:06 質問者: aikibon カテゴリ: C言語・C++・C#
ベストアンサー
1
0
-
39
写真のプログラムは、1からnまでの、全整数の積すなわち階乗値を求めて返却する関数を作成したいのですが
写真のプログラムは、1からnまでの、全整数の積すなわち階乗値を求めて返却する関数を作成したいのですが、nの値を6にすると21と出てしまいます。おそらく和だと思うのですが、積に直したいです。どなたか分かる方回答よろしくお願いいたします。添削して、直していただきたいです。
質問日時: 2023/10/29 17:09 質問者: meimo カテゴリ: C言語・C++・C#
解決済
2
0
-
40
C言語関数違いについて。
printf、scanf関数:標準入出力に対して使用 fprintf、fscanf:ファイルに対して使用 sprintf、vsprintf、sscanf:メモリに対して使用 とあるのですが、これらの関数の違いが分かりません。教えて頂けると幸いです。
質問日時: 2023/10/28 21:04 質問者: メラゾーム カテゴリ: C言語・C++・C#
ベストアンサー
39
0
-
41
apacheでPerl CGIが作動せず、500エラーが出ます。
ApacheでCGIが動きません。 初心者なもので、どこでつまづいているのかもあいまいです。 実行したいファイル /var/www/html/test.cgi #!/usr/bin/perl print "HELLO WORLD"; http://(ipアドレス)/test.cgi としてサーバ上に出そうとすると 500 Internal Server Error となります。 Apacheのエラーログは End of script output before headers: test.cgi と出ます。 コマンドラインでcurlでも同様の結果です。 試したこと ・Apache2.confの編集 AddHandler cgi-script .cgi 追記 ディレクトリ内のオプション Options Indexes FollowSymLinks ExecCGI ・Apache再起動 ・ソース一行目のperlのPATHの確認 ・ソースの文法チェック ・SELINUXが作動していない ・Firewallは開いている ・権限はファイル、ディレクトリ共に755 ・コマンドライン上でperlは使える なお、http://(ipアドレス) とすると以前私が入力した「hello」という文字だけ出てきます。 これがどのファイルを参照しているのかも不明です。 追加で必要な情報があれば教えてください。 何かご存じのかた、どうぞよろしくお願いいたします。 【環境】Ubuntu5.4.0 perl5 Windows10上で仮想マシン使用
ベストアンサー
2
0
-
42
flash (.swf) を編集したい
flash (.swf) を編集したい flash初心者です。 というかほとんど知識がない状態ですので、お手数をお掛けします。 実は既に完成されているaaa.swfファイルの編集(写真の変更)を行いたいのですが、方法がわかりません。 お取引先のHPを管理していて依頼されました。 ちょっと急ぎで過去ログもあまり見ていない状況で申し訳ございませんが、どうすればよろしいかご存じの方がいらっしゃいましたらご教授下さい。 よろしくお願い申し上げます。
質問日時: 2012/09/04 10:07 質問者: jipang5054 カテゴリ: Flash
ベストアンサー
3
0
-
43
過剰なオブジェクト指向脳からの脱却について
一昔前にオブジェクト指向という言葉が全盛期だった時代に、新人や入社2,3年程向けのシステムエンジニアに、コードを小さく分割して共有化していくという手法を推奨した教育があったように思います。 けれども、その手法をゴリゴリに使って作っているシステムが更新期を迎えて、修正作業の為に、その開発にタッチをした事の無いエンジニアがプログラムを確認しようとした時に何が待っているかというと… 自作のオレオレ関数の中に、さらに複数の自作関数が入りまくって、変数一つの流れを追うのも難儀する事になり、地獄の炎上が待っています。 しかも、自作関数の機能のコメントは大雑把で、プログラム内で使われた、一つ一つの変数の役割の説明が無い場合が多いのではと思います。 そして、コードの分割と共有化は保守性が良いという理由ですが、これも大きく間違っています。 実際の修正を行う現場では、自作関数だらけの中でコードの共有化をされていた場合には、特定機能の修正をしたくても、他の共有化された部分にも影響が出てしまう為に 非常な厄介な作りとなります。 その為に、同じコードを、2度以上記述してはいけないという、意味不明なカルトじみた信仰は、WindowsOSなども、まだ存在しない、記憶容量が、KBレベルで工夫をしなければならない数十年前の話だと思います。 現在に、後の修正作業をするエンジニアの事を考えた「まともな作り」をするなら、自作関数の中には自作関数を入れない事が大前提だと思います。 そして、自作関数には、プログラム言語の標準関数のように説明書を丁寧に作成します事と、プログラム内で使った変数は、フラグ用も含めて全て可能なかぎり使用方法を記述した方が良いように思います。 おそらく、PMやPLが、最初に内部設計を作った後に、開発中に発生する、自作関数や変数の説明を定期的に報告してもらい、それを設計書に逐次追加していくような形式が良いように思うのですが・・・ 現在のエンジニアの開発現場で、こういう考え方が浸透して、過剰なオブジェクト指向によるコードの分散と共有化という大きな間違いに気が付いてくれるにはどうすれば良いのでしょうか・・・?
質問日時: 2024/05/19 23:56 質問者: haous カテゴリ: その他(プログラミング・Web制作)
解決済
8
1
-
44
double型が正常に認識されていない恐れ
double型を用いて実数を計算するプログラムが正常に動かなかったため、 double型を用いてキーボードから入力した実数を表示させるだけの以下のプログラム(#1) (#1) #include <stdio.h> int main(void) { double x; puts("整数を入力せよ:"); printf("x="); scanf("%f", &x); printf("入力した値は%fです", x); return 0; } を実験として作ってみたところ、以下のような結果(#2) (#2)※5.1を入力 整数を入力せよ: x=5.1 入力した値は0.000000です を得ました。どうして出力結果が0.000000になるのでしょうか。お教えいただきたいです。
質問日時: 2024/03/10 21:10 質問者: ITbeginnerkanto カテゴリ: C言語・C++・C#
ベストアンサー
5
1
-
45
Google ColaboでGUI作成
Python初心者です。Pythonの標準ライブラリ、tkinterなどを使ってGUIを作ろうとしています。Google Colaboで、このライブラリは使えますか。また、Google ColaboでGUI開発を行うには、どういったライブラリを使えばよいでしょうか。 よろしくお願い申し上げます。
質問日時: 2024/02/26 16:07 質問者: hgama1024 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
2
0
-
46
C言語 列挙型(enum型)変数について
C言語初学者です 列挙型の変数が一体どんなものなのかよくわかりません 列挙型の変数を宣言して、その変数に代入するとき、 enum goo{ zero = 0, one, two }; enum goo num = zero; のような感じで書いてあるのですが、この変数の宣言を int num = 0; としても同じだし、また、列挙型の変数への代入は列挙型の定数(zero, one...)を使用せず、 enum goo num = 10; と書いても、実際は int num = 10; と変わらないと考えてよいのでしょうか? つまり結局、列挙型の変数はint型変数と変わりないということでしょうか?
質問日時: 2024/01/15 14:20 質問者: 0X4B_39 カテゴリ: C言語・C++・C#
ベストアンサー
7
0
-
47
Cellsのコードが打てません
標題の件について、下記画像をご覧ください。 赤字のCellsが打てません。 Cells(i, 1)が、赤字となって打てません。 何か間違っていますでしょうか。 ご存じの方、教えて下さい。 【コード】 Sub Macro() Dim i As Long For i = 1 To 4 Cells(i, 1) Next i End Sub
質問日時: 2024/01/12 19:15 質問者: aoyama-reiko カテゴリ: Visual Basic(VBA)
解決済
6
0
-
48
PHP8を使うと、大量のWarningが発生してしまいます。
PHPの勉強をしています。 先日ローカル環境のPHPを8に変更したのですが、その際今まで発生したいなかったWarningが沢山表示されて困っております、大きく仕様が変わったのでしょうか…。 アドバイスを頂けますと幸いです。 例えばメールフォームで今まで以下のように記述していたのですが、 <?php if ($_SERVER["REQUEST_METHOD"] === "POST") { $error = []; if ($_POST["lastName"] === "") { $error["lastName"] = "blank"; } } ?> <form action="" method="post"> <fieldset> <legend>お名前</legend> <label>姓 <input type="text" name="lastName" value="<?php echo $_POST["lastName"]; ?>"> <span class="require"> <?php if ($error["lastName"]==="blank") { echo "※お名前を入力してください。"; } ?> </span></label> <input type="submit" value="送信する"> </form> しょっぱなからエラーが表示されます。 Warning: Undefined variable $error in E:\xampp\htdocs\index.php on line 45 Warning: Trying to access array offset on value of type null in E:\xampp\htdocs\index.php on line 45 遷移先の同ページで$_POSTを受け取った際にも以下のエラーが表示されます。 Warning: Undefined array key "lastName" in 調べてみると回避策として、isset()を指定するようなことがか書かれているのですが、色々と試してみるのですがうまく設定ができません。 ちなみに、error_reporting(E_ERROR | E_PARSE | E_NOTICE); でエラーを無視すると意図する動きをしてくれるのですが、そもそもきちんとした書き方ができていないからエラーが出ていると思うので、この辺り正しい書き方で対応したいと思っております。 アドバイスのほど宜しくお願いいたします。
解決済
2
0
-
49
VSコードでHTMLに(リンク)ファイル名をクリックしてもファイルが開かれない
VSコードを使用してWeb制作の勉強をしています。 以前は、HTMLコード内にリンク先ファイル名(やURL)を記載して それ(添付画像の青く囲った所)をクリックすると そのファイル(やサイト)が開かれたのですが、 今は、開かないです。 以前の様にクリックしたら開くようにしたいです。 改善方法を教えてください。
ベストアンサー
1
0
-
50
phpのファイルがブラウザで開かない
いつもありがとうございます。 また初歩的な質問で恐縮ですがよろしくお願いいたします。 Atomで、contactform.php というファイルを作成しました。 これを、ブラウザで表示確認したいのですが、開ません。 クロームに無理やり開こうとすると、ソースコードのみ表示されます。 htmlのファイルだと、ダブルクリックすると自動でブラウザで表示されますよね。 そんな感じでイメージしていたのですが、なぜ表示されないのでしょうか?
質問日時: 2020/08/25 21:19 質問者: ハコ2222 カテゴリ: Microsoft ASP
解決済
2
0
【プログラミング・Web制作】 に関する回答募集中の質問
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【プログラミング・Web制作】に関するコラム/記事
-
プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた!
プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて!goo」にも、「プログラミングを学べる子供...
-
タンス預金で旧紙幣を持ち続けるのは大丈夫?タンス預金のメリット・デメリットを紹介
今年7月、約20年ぶりに新紙幣が発行される。紙幣が変わることを改刷というが、この改刷には「タンス預金をあぶり出す目的があるのでは?」という見方をする人もいるという。「教えて!goo」にも「改刷で本当にタンス...
-
投資詐欺の手口や被害に遭わないためのポイント、被害後の対応策を弁護士が解説
新NISAが始まって間もなく半年が経過する。政府の旗振りの元、預貯金大国から脱却し、資産運用立国に向けた滑り出しは順調のようで、それはNISAの利用状況(2023年4月から2024年4月)を見ても明らかだ。 ・NISA口座...
-
メダロット:第247話「Vol.247※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのVBAコードについて教えて...
-
マクロの記録を使用したマクロの実...
-
c言語のリダイレクトによる円の描...
-
{ CONTROL Forms.Label.1}が消えない
-
VBAでCOPYを繰り返すと、処理が途中...
-
{ CONTROL Forms.Label.1}が表示...
-
【BAT(バッチ)ファイル】Webペー...
-
複素関数はどこはあんまりやらなく...
-
1、Rstudioで回帰直線を求めるため...
-
htmlの文字が縦書きになる
-
Version Control on Unity
-
vbaにてseleniumを使用したedgeスク...
-
0 == False はいいけど
-
プログラム言語について c言語もコ...
-
【ExcelVBA】インデックスが有効範...
-
VBSでテキストファイルの2行目から...
-
VBの色を変えるにはどうしたらいい...
-
ユーザーフォームに別シートからデ...
-
テキストファイルの1行目のみを削除...
-
バッチファイルで以下のようなもの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
htmlの文字が縦書きになる
-
vba クリップボードクリアについて...
-
ビーリアルのユーザー名を変えたい...
-
AIの登場でプログラマーたちが解雇...
-
Linux Cプログラミングを学ぶための...
-
onedrive にexcelファイルをアップ...
-
エクセルで集計したい。
-
VBAで大量のファイルをシート名ごと...
-
右ビットシフト
-
XMLを作成してもタグしか表示されない
-
プログラミングについて。 1つのル...
-
プログラミングのPythonのnotebook...
-
エクセルに張り付けた写真のファイ...
-
応用情報技術者試験の令和元年秋、...
-
ImageMagickでgif画像の一部が切れ...
-
過剰なオブジェクト指向脳からの脱...
-
プログラム言語について。
-
VBAでパワーシェルを実行したいので...
-
配列にnullを代入すると、nullが文...
-
VBA レジストリの値の読み方につい...
おすすめ情報