プログラミング・Web制作(17ページ目)

パソコンやゲームが好きで自分でプログラミングをしている・したいという方は少なくないと思います。プログラミングをする際の言語は何を使用したらよいか、自分の能力でどこまでプログラミングできるか等、参考になるような回答が集まっています。

回答数

気になる

VBA 複数の各シートに行を追加したいです

お世話になっております。複数の各シートに行を追加したいです。コードを考えてみました。以下のコードで相違ないでしょうか。 Sub Test2() Dim Wb1 As Workbook, Wb2 As Workbook Dim Ws1 As Worksheet, Ws2 As Worksheet Dim LastRow1 As Long, LastRow2 As Long Dim sheetNames As Variant Dim i As Integer ' ソースのWorkbookを定義 Set Wb1 = Workbooks("Book1.xlsm") ' ターゲットのWorkbookを定義 Set Wb2 = Workbooks("Book2.xlsm") ' シート名の配列を定義 sheetNames = Array("Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8", "Sheet9", "Sheet10", "Sheet11", "Sheet12", "Sheet13", "Sheet14") ' 各シートにループ For i = LBound(sheetNames) To UBound(sheetNames) ' ソースのWorksheetを定義 Set Ws1 = Wb1.Sheets(sheetNames(i)) ' ターゲットのWorksheetを定義 Set Ws2 = Wb2.Sheets(sheetNames(i)) ' 最終行を見つける LastRow1 = Ws1.Cells(Ws1.Rows.Count, "C").End(xlUp).Row LastRow2 = Ws2.Cells(Ws2.Rows.Count, "C").End(xlUp).Row ' コピーと挿入 Ws1.Rows("2:" & LastRow1).Copy Ws2.Rows(LastRow2 + 1).Insert Shift:=xlDown ' クリップボードをクリア Application.CutCopyMode = False ' オブジェクト参照を解放 Set Ws1 = Nothing Set Ws2 = Nothing Next i ' オブジェクト参照を解放 Set Wb1 = Nothing Set Wb2 = Nothing End Sub ご回答をお待ちしております。どうぞ宜しくお願い申し上げます。

質問日時: 2024/02/28 22:09 質問者: yuri_7 カテゴリ: Visual Basic（VBA）

解決済

2

0
変数名をどのようにつけるのが良いかアドバイスお願い致します

非同期通信でQ＆A掲示板を作成しています。 JavaScript appendChild で親要素に子要素を追加する際、HTMLのクラスごとに判別するできるようにしたいのですが、変数名に - や _ や空白が変数名に使えずエラーが起きておりどうすべきか悩んでおります。アドバイスお願い致します。  <div id="confirm_area" style="display: block;"> <div class="title-partial parts">  質問タイトルテスト </div> <div class="namae-partial parts">  名前テスト </div> <div class="body-partial parts"> コメントテスト </div> <div class="post-button"> <button type="button">入力画面へ戻る</button><button type="button" name="output">結果画面へ進む</button> </div> </div> </div>  </div> </div>  <script> confirm_area.textContent = ''; var div; var child; // class const board_form_partial_div = document.createElement("div"); // classの追加 board_form_partial_div.classList.add("board_form_partial"); // id const js_board_form_partial_div = document.createElement('div'); // idの追加 js_board_form_partial_div.id = 'js_board_form_partial_div'; const questionHeader-partial_div = document.createElement("div"); questionHeader-partial_div.classList.add("questionHeader-partial"); div.appendChild(child); // div の末尾に child を追加 const title-partial parts_div = document.createElement("div"); title-partial parts_div.classList.add("title-partial parts"); child = document.createElement("p"); child.appendChild(document.createTextNode(title_value)); div.appendChild(child); // div の末尾に child を追加 const namae-partial parts_div = document.createElement("div"); namae-partial parts_div.classList.add("namae-partial parts"); child = document.createElement("p"); child.appendChild(document.createTextNode(namae_value)); div.appendChild(child); // div の末尾に child を追加 const body-partial parts_div = document.createElement("div"); body-partial parts_div.classList.add("body-partial parts"); child = document.createElement("p"); child.appendChild(document.createTextNode(question_value)); div.appendChild(child); // div の末尾に child を追加 const post-button_div = document.createElement("div"); post-button_div.classList.add("post-button"); child = document.createElement("button"); child.type = "button"; child.innerText = "入力画面へ戻る"; child.addEventListener("click", () => { input_area.style.display = "block"; // 空文字を入れることで要素内を空にできる confirm_area.textContent = ''; confirm_area.style.display = "none"; }); div.appendChild(child); // div の末尾に child を追加 child = document.createElement("button"); child.type = "button"; //name属性の追加・変更 child.setAttribute("name", "output"); child.innerText = "結果画面へ進む"; child.addEventListener("click", confirm_button_click); div.appendChild(child); // div の末尾に child を追加 confirm_area.appendChild(div); // confirm_area の末尾に div を追加 input_area.style.display = "none"; confirm_area.style.display = "block"; }) .catch(error => {}); } </script>

質問日時: 2024/02/28 19:44 質問者: 初心者サイト作成カテゴリ: JavaScript

ベストアンサー

4

1
C言語の関数と配列に関する質問

下記のセキュアコーディングのページの解説が理解し切れず、疑問点についてご教示頂けると幸いです。宜しくお願いします。 https://www.jpcert.or.jp/sc-rules/c-exp35-c.html ⒈関数の引数で、他の関数呼び出しをすると、その関数の戻り値は代入式で変数に格納しないと消失する、ということなのでしょうか？下の方の説明に「引数として渡されるすべてのオブジェクトに対してコピーが作られる。」とあるので戻り値もコピーが作られるなら問題ないのではと感じていますが、説明文だけでは理解できず。 2. 1は構造体が配列だけであった場合に起きるのか？ポインタ変数がメンバーであったら問題は起きない？ 3.「C では、返り値の生存期間は次の副作用完了点で終了」の次の副作用完了点とは不適合コードのどこを指しているのでしょうか？

質問日時: 2024/02/27 15:45 質問者: nkk06116kk カテゴリ: C言語・C++・C#

ベストアンサー

8

0
家庭のパソコンで Python の環境構築を行います。 windows 11 です事情があって

家庭のパソコンで Python の環境構築を行います。 windows 11 です事情があって Google のコラボラトリーは使いません配布用のアナコンダとかビジュアルスタジオなんとかとかジュピターノートブックとか分かりません

質問日時: 2024/02/26 23:10 質問者: pythons5 カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

3

2
C++6.0でのresource.hについて

始めまして，少し古いですがC++6.0を使用しております。ある２つの機器をC++で動かそうと思っており，それぞれのサンプルブログラムを眺めておりました。（それぞれのサンプルプログラムには各ダイアログが用意されており，実行することで使用できております。）そのなかで，微妙に違うところがあり調べていたのですが，どうしても分からないので，教えてください。１つのサンプルブログラムには [code] #define _APS_NEXT_CONTROL_VALUE 1029[/code] もう１つのサンプルブログラムには [code] #define _APS_NEXT_CONTROL_VALUE 1028[/code] とあります。 [code] #define _APS_NEXT_CONTROL_VALUE[/code] を調べてみると「次のコントロールに割り当てられるID」と記されておりました。と言うことは，付けられた番号がそれぞれの機械を動かすためのIDと考えました。そこで，もし２つの機械を１つのコード（ダイアログ）でコントロールをする場合， resource.hの中に [code] #define _APS_NEXT_CONTROL_VALUE 1029[/code] [code] #define _APS_NEXT_CONTROL_VALUE 1028[/code] を共存させても良いのでしょうか？命令が同じだけにどうすればよいのでしょうか？お教えください。よろしくお願い申し上げます。

質問日時: 2024/02/26 22:03 質問者: ssm.kircheis カテゴリ: C言語・C++・C#

ベストアンサー

4

1
VBA 別ブックからコピペしたいのですが、軽くしたいです

VBAかなり初心者です。シンプルなVBAのフォーマットを作成してみましたが、とっても遅いです。色々調べたものの、自分でやりたいことが軽いコードでできませんでした…。 1.別のブックは毎回ブックネームが異なるため、ファイルから選択する形式を希望（今回はREPORT.xlsxのFinal Dataシートより） 2.そのブックの列ごとコピーして、このVBAが入っているブック（Book1.xlsm）のDataシートに貼付けをしたい ************************************************************************* Sub Sample2() '別ブックを開く Dim OpenFileName As String OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") If OpenFileName <> "False" Then Workbooks.Open OpenFileName End If 'データをコピー　上記で選択して開いた別ブック Windows("REPORT.xlsx").Activate a = Sheets("FinalData").Select Columns("A:A").Select Application.CutCopyMode = False Selection.Copy 'データをペースト Windows("Book1.xlsm").Activate Sheets("Data").Select Columns("A:A").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select Application.CutCopyMode = False Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove End Sub ************************************************************************ いくつか速くできるようなQ&AのWEBページがあったのですが、なかなかうまく回りませんでした…。コードを教えていただけると大変助かります。何卒よろしくお願いいたします。

質問日時: 2024/02/26 18:41 質問者: Sakokosan カテゴリ: Visual Basic（VBA）

解決済

3

0
Google ColaboでGUI作成

Python初心者です。Pythonの標準ライブラリ、tkinterなどを使ってGUIを作ろうとしています。Google Colaboで、このライブラリは使えますか。また、Google ColaboでGUI開発を行うには、どういったライブラリを使えばよいでしょうか。よろしくお願い申し上げます。

質問日時: 2024/02/26 16:07 質問者: hgama1024 カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

2

0
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
地味なページはnofollowにする？

ｈｐ自作してますサイト内には検索に引っかかってほしいメインのページと、気になる人だけ見てほしいような注意事項のページとかがあります seoのアドバイス受けたことがあるんですが、ページ増えると評価が分散してしまうらしいのです。画像押したときに拡大画像が表示されるとかも別ウインドウで表示されるページもあります。評価が分散して損するだけの検索で出てこなくても問題ないページはnofollowにすればいいんでしょうか？

質問日時: 2024/02/26 08:08 質問者: linkshuu カテゴリ: SEO

ベストアンサー

1

0
VBA 別ブックから条件に合うものを転記したいです

上の表を埋めるため、別ブックの下の表から条件に合うセルを転記し、また、空白のセルに[x]を入れたいです。東京-りんご　セルB2に入るのはa(B4) 　　　　　　　セルC2、D2はx VBA初心者の為、なかなか上手く行かず、、、ご教授よろしくお願いします。

質問日時: 2024/02/25 21:39 質問者: moff12010816 カテゴリ: Visual Basic（VBA）

ベストアンサー

3

0
ネット検索１，３位にきてるどっちか削除するほうがいい？

自営のｈｐ作っていて作りこんでるおかげで検索１位に来てます３位には自分で宣伝用に作ったジモティページが^o^; 検索者から見たらまたかと思ってマイナス評価されそうなのでジモティのページ削除しといたほうがいいでしょうか？ただせっかくタダで３位に来てるの削除するのもったいないなーと思いますがマイナスになりそうならジモティの削除したいです

質問日時: 2024/02/25 20:13 質問者: linkshuu カテゴリ: SEO

ベストアンサー

2

0
配列のペースト出力結果の書式について

配列のペースト出力結果の書式について、どうも書式が反映されなくて困っております。 dim AllmydataArr as Variant dim SourceRng as range, TargetRng as range wbとmbは　それぞれのBookのパス先です Set SourceRng = Wb.Worksheets("sheet5").UsedRange 　　AllmydataArr = SourceRng Set TargetRng = mb.Worksheets("sheet1").Range("A1") TargetRng.Resize(UBound(AllmydataArr, 1), UBound(AllmydataArr, 2)) = AllmydataArr と現在このようにResizeとUBoundをつかって配列AllmydataArrのペースト出力結果を出しております。このままでは値貼り付けで終わってしまい、書式の移動ができておりません。 NumberFormat　を使おうにもエラーがでてしまいます。どのようにVBAを表現すると元のSheetにある書式が反映されるようになるのでしょうか。教えていただけると幸いです。よろしくお願いいたします

質問日時: 2024/02/25 14:50 質問者: ひかりりあカテゴリ: Visual Basic（VBA）

ベストアンサー

3

0
ホームぺージ制作で間違って重なっても問題ないタグあれば教えてください

div.a.br とかタグが沢山の種類ありますが。当方コピペを多用するので・・・・

質問日時: 2024/02/25 12:15 質問者: kakagaga1245 カテゴリ: SEO

ベストアンサー

2

0
for 文の繰り返し処理に使えるのかどうかについて

ExcelのVBA　について質問があります。 1つのブックの４つのシートに対して4回違うブックのシートからコピぺを繰り返そうと思っております。 Dim Wb1 As Workbook, Wb2 As Workbook, Wb3 As Workbook, Wb4 As Workbook Dim FullPath1 As String, FullPath2 As String, FullPath3 As String, FullPath4 As String Dim SourceRng1 As Range, SourceRng2 As Range, SourceRng3 As Range, SourceRng4 As Range Dim TargetRng1 As Range, TargetRng2 As Range, TargetRng3 As Range, TargetRng4 As Range Worksheets("kyu").Cells.Clear Worksheets("nyu").Cells.Clear Worksheets("gai").Cells.Clear Worksheets("sesho").Cells.Clear と、dimでの設定が4種類が4回、元のシートのクリアが4回なので、悩んだ挙句 Dim i As Integer For i = 1 To 4 SourceRng(i).Copy TargetRng(i).PasteSpecial Paste:=xlPasteColumnWidths TargetRng(i).PasteSpecial Paste:=xlPasteValues TargetRng(i).PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False i = i + 1 Next としました。 .PasteSpecial Paste:=pasteall　ではないのは、行うと図にされて貼り付け先に貼り付けされてしまうからです。結局のところ、Dimで指定した数字は(i)としてfor文で可能なのか Worksheetsは.Cells.Clearでまとめて表現できるのか .PasteSpecial Paste　も短く表現できないか浅学なので、全く解決策が見いだせません。現在は1から4まで直線的にコピペをVBAで行っております。簡略化できると嬉しいです。まずは可能かどうか、そして解決方法を教えていただけると嬉しいですよろしくお願いいたします。

質問日時: 2024/02/25 09:52 質問者: ひかりりあカテゴリ: Visual Basic（VBA）

ベストアンサー

10

1
プログラミングの雑談とかできるサイトないですか？

プログラミングの雑談とかできるサイトないですか？

質問日時: 2024/02/25 01:12 質問者: だいぬカテゴリ: その他（プログラミング・Web制作）

ベストアンサー

5

0
画像のドットの部分が抜けていて一括で修正を行いたい

画像のドットの部分が抜けていて、一括で、修正を行いたいです。バッチで、後ろから４番目（JPGの横にドット）を入れるスプリクトを教えていただけないでしょうか。 abcJPG → abc.JPGのようにしたいです。よろしくお願いいたします。

質問日時: 2024/02/24 23:35 質問者: tutuu カテゴリ: AJAX

ベストアンサー

1

1
Pythonでターミナルに文字を出力する命令を出せるprintが予約語でないのは何故ですか。予約語は

Pythonでターミナルに文字を出力する命令を出せるprintが予約語でないのは何故ですか。予約語は予め役割を与えられた語を指すと思うのですが。

質問日時: 2024/02/24 09:12 質問者: 蘭楠カテゴリ: その他（プログラミング・Web制作）

解決済

7

1
プログラミングで例えばゲームを作る際に、そのコードで何故その画面が表示されるようになってるんでしょう

プログラミングで例えばゲームを作る際に、そのコードで何故その画面が表示されるようになってるんでしょうか？もちろんそう組んでるんでしょうが、仕組みが分かれば丸暗記も減り、応用も効くと思ったので。チャットgptでパイソンで迷路を作りたいと言った時のコードの一部です。何となく理屈は分かるのですが、じゃあ一から自分で思ったゲームを作りたいって時に画面の描写やキャラクターの動きの関数がどう定義されてるか分からないと難しいのではと思いました。まとまりのない文章ですがよろしくお願いしますm(_ _)m import random def generate_maze(width, height): maze = [[0] * width for _ in range(height)] def create_maze(x, y): directions = [(0, 1), (0, -1), (1, 0), (-1, 0)] random.shuffle(directions) for dx, dy in directions: nx, ny = x + dx, y + dy if 0 <= nx < width and 0 <= ny <

質問日時: 2024/02/24 06:35 質問者: たろう。太郎。カテゴリ: その他（プログラミング・Web制作）

解決済

5

0
Excelで画像URLを１つずつセルに振り分けたい

ExcelのA1に下記のような画像URLが複数あり、改行された状態で保存されています。 B1,B2,B3,B4,B5に、画像URLを１つずつセルに振り分けたいです。下記のようにB1に関数を入れ、B1はうまくいきましたが、 B2,B3,B4,B5に繰り返しが出来ていません。 =FILTERXML("<t><s>" & SUBSTITUTE(A1, CHAR(10), "</s><s>") & "</s></t>", "//s") どのように書き替えれば良いでしょうか？よろしくお願いいたします。 https://yahoo.co.jp/images/I/51zE4g7B3XS._AC_.jpg https://yahoo.co.jp/images/I/51mw3kiGQHL._AC_.jpg https://yahoo.co.jp/images/I/518nTESXpUL._AC_.jpg https://yahoo.co.jp/images/I/51s7tENUsoL._AC_.jpg https://yahoo.co.jp/images/I/51Ka9evm3CL._AC_.jpg https://yahoo.co.jp/images/I/51GPh29MXzL._AC_.jpg https://yahoo.co.jp/images/I/51r0QUBwEVL._AC_.jpg"

質問日時: 2024/02/24 01:59 質問者: tutuu カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
Linuxでの開発環境構築や設定のコツ

Linuxでの開発環境構築や開発設定が苦手というかググったりしてもやたら時間がかかったり、挫折したり。 Linuxは大学時代から触っており、稀ですがLinuxも仕事で開発経験があるエンジニアにもかかわらず苦手意識があります。最近はraspberry piでPCからつなぐためにネットワークの設定しようとして苦労し疲労感が。。。基本的なことはわかってるつもりですし、最近はGUIやパッケージ管理ソフトが充実し、疑問が出ても質問サイトや先人の作業記録ページなど便利になっているのに、なぜこんなに時間を要するのかわかりません。何か皆様が知っているコツ等ありましたらご教示ください。よろしくお願いいたします。 Linuxのレベルとしては基本コマンド、エディタは中級レベルぐらい設定ファイルとかいつも調べてやっています makeファイル、シエルスクリプトは少し書いたことある程度

質問日時: 2024/02/24 00:46 質問者: ryotan7 カテゴリ: C言語・C++・C#

解決済

4

1
Excel VBA 文字列のセルを反映させたいです

大変お世話になっております。以下のVBAを実行すると、セルの書式設定で『文字列』のセル（例えば、052等、数字の頭が0のため文字列にしたセル）が反映されません…。（複数のシートを1つのシートにまとめるVBAでして、まとめる前の元のシートに文字列が含まれています）文字列を反映したいため、コードの修正をしていただけると有難い限りです…。お手数ですが、コードの全文をご記載いただけると本当に助かります…。 Sub 複数のシートを1つのシートにまとめる() Dim i As Long Dim r As Long Dim s As Long Dim Sh As Worksheet Dim MaxRow As Long Dim MaxCol As Long Dim MyArray As Variant Dim JoinSh As Worksheet Application.DisplayAlerts = False 'シート削除時のアラート停止 For Each Sh In Worksheets If InStr(Sh.Name, "統合") <> 0 Then Sh.Delete 'すでに統合シートが存在する場合は一旦削除 Next Application.DisplayAlerts = True 'シート削除時のアラート停止を解除 s = 1 '最大行を超えた場合次の統合シートを作成するための番号 Worksheets.Add Before:=Worksheets(s) '新規に統合シートを追加 ActiveSheet.Name = "統合" Set JoinSh = ActiveSheet '統合シートを変数に格納 For i = s + 1 To Worksheets.Count 'シートを統合シートの次～末尾までループ With Worksheets(i) '各月シート If i = 2 Then r = 1 '最初だけ項目も取得 Else r = 2 '最初以外は2行目から取得 End If MaxRow = .Cells(Rows.Count, 1).End(xlUp).Row '1列目で最終行を取得 MaxCol = .Cells(1, Columns.Count).End(xlToLeft).Column '1行目で最終列を取得 MyArray = Range(.Cells(r, 1), .Cells(MaxRow, MaxCol)) 'A1～データ末尾まで配列に格納 End With With JoinSh '統合シート MaxRow = .Cells(Rows.Count, 1).End(xlUp).Row '統合シートの１列目で最終行取得 If MaxRow + UBound(MyArray) > Rows.Count Then '最大行を超える場合の処理 s = s + 1 '統合シートの番号を加算 Worksheets.Add Before:=Worksheets(s) '新規に統合シートを追加 ActiveSheet.Name = "統合" & s '名前が同じにならないように番号を追加 Set JoinSh = ActiveSheet '統合シートを変数に格納 MaxRow = JoinSh.Cells(Rows.Count, 1).End(xlUp).Row '統合シートの１列目で最終行取得 End If If .Cells(1, 1) = "" Then '最初だけ1行目から貼り付け Range(.Cells(1, 1), .Cells(UBound(MyArray), MaxCol)) = MyArray Else '最初以外は最終行の次に貼り付け Range(.Cells(MaxRow + 1, 1), .Cells(MaxRow + UBound(MyArray), MaxCol)) = MyArray End If End With Next i End Sub ご回答を心よりお待ちしております。大変恐縮ですが、どうぞ宜しくお願い申し上げます。

質問日時: 2024/02/24 00:06 質問者: yuri_7 カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
初心者が簡単なPowerShellスクリプトを作ってみましたが動きません。アドバイスください。

基本的な所で間違えていると思いますが、ご容赦ください。 PowerShellで表示される現在のパスが、長いので簡略してパス表記されるようにしたくてスクリプトを作ってみました。やりたいことは、PS G:\マイドライブ\XXX1\HOMEPAGE\workspace\test> とあったときに、PS G:\マイドライブ\・・\test> となるようにしたいです。作ってみたプログラム： function prompt () { # $PATH配列にパスを分割して代入 $PATH = Get-Location -split "\" # $PATH配列の長さを取得 $PATH_ELEMENT_LENGTH = $PATH.Length # $PATH配列の長さが３以下の時は、配列をそのまま連結する if ($PATH_ELEMENT_LENGTH -le 3) { $PATH -join "\" }# $PATH配列の長さが４以上の時は、配列[0]と配列[1]と文字列"・・"と配列[-1](配列の最後)を連結して代入 elseif($PATH_ELEMENT_LENGTH -ge 4){ $PATH = $PATH[0..1],"・・", $PATH[-1] -join "\" }# 必要ないかもしれないがその他の時にエラーメッセージを代入 else { $PATH = "パスの表示のための操作にエラーが発生しています" } # PSの文字列と$PATH配列を連結して表示 "PS" + $PATH + ">" }

質問日時: 2024/02/23 16:28 質問者: denpataro カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

2

0
ホームページのはじめのinebx ページの背景画像を画質の良いバカ大きいのを使っていて、PCでもスマ

ホームページのはじめのinebx ページの背景画像を画質の良いバカ大きいのを使っていて、PCでもスマホでも端っこの角しか表示されません。これを、写真ファイルはそのままで画面内に合わせる方法はありませんか？正方形なので横は合わせて下には繰り返しになっても構いませんが、写真全体が使うデバイスに表示させたいです。 ↓が現在のたぐです。よくわからないのですが↓これで最初のページは表示できてます。（ちなみにHPといってもレンタルサーバー借りて物置き場にしてるのでHPの最初のページは背景画像以外要りません。リンクもなにも置いてない）どこにサイズというかどんなキーを書けばいいですか？？ <html><head> <title>●●●●</title> </head> <body background="http: ／／●●●●.png" background-size:="" contain;="" oncopy="return false;"> </body></html>

質問日時: 2024/02/22 03:07 質問者: 教えてグーちょきパーカテゴリ: HTML・CSS

ベストアンサー

2

0
JAVAのAPIのコールの仕方で質問です。古いやり方ですが、下記URLのWWWGet.javaのや

JAVAのAPIのコールの仕方で質問です。古いやり方ですが、下記URLのWWWGet.javaのやり方でContent-Typeをapplication/jsonでAPIをコールしてます。バイナリデータ（ファイル）も一緒に送りたいのでmultipart/form-dataを追加したプログラムにしたいのですが、どのように作成すれば良いでしょうか。ご存知の方いらっしゃいましたら、ご教示ください。どうか、お助けください。参考となるURLだけでも構いません。 ◾️参考プログラム https://atmarkit.itmedia.co.jp/ait/spv/0407/27/news104.html

質問日時: 2024/02/21 18:21 質問者: piraniaman カテゴリ: Java

解決済

1

0
10行目にフィルターを使用して見出しがあります。列はA:DFで11行目以降（2000行ぐらい）はデー

10行目にフィルターを使用して見出しがあります。列はA:DFで11行目以降（2000行ぐらい）はデータが入っています。AD10行目のフィルターからワイルドカードを使用して※2113※、※20F※、※20C07※以外をVBAを使用して表示させる方法は、ありますでしょうか？宜しくお願い致します。

質問日時: 2024/02/21 16:09 質問者: ほいほい侍カテゴリ: Visual Basic（VBA）

解決済

4

0
Excel VBA マクロあるフォルダー内の複数のファイルを統合したいです

大変お世話になっております。 ●あるフォルダー内の複数のファイルを1つのファイル統合したいです。 1）複数のファイルのファイル名は異なります。 2）複数のファイルの各々のシート名は同一です。 3）複数ファイルの形式は同一です。 4）一つに統合した際に、シート名・形式を保ったままにしたいです。現在は… フォルダー内のファイルを一度各シートにし、その後、統合するVBAを使用しています。統合した際に形式が保てませんし、2度手間になっています…。 ■１■まず…以下を行い Sub フォルダー内のファイルを各シートへまとめる() Dim Filename As String Dim IsBookOpen As Boolean Dim OpenBook As Workbook Dim ShCount As Long With CreateObject("WScript.Shell") .CurrentDirectory = "F:\2024.02.19_複数ファイルを一つにまとめる\新しいフォルダー" 'ここで読み込むフォルダを直接指定するF:\2022.12.01_複数ファイルを一つにまとめる End With Filename = Dir("*.xlsx") Do While Filename <> "" If Filename <> ThisWorkbook.Name Then IsBookOpen = False For Each OpenBook In Workbooks If OpenBook.Name = Filename Then IsBookOpen = True Exit For End If Next If IsBookOpen = False Then ShCount = ThisWorkbook.Worksheets.Count Workbooks.Open (Filename), UpdateLinks:=1 Worksheets.Copy after:=ThisWorkbook.Worksheets(ShCount) Workbooks(Filename).Close savechanges:=False End If End If Filename = Dir() Loop End Sub ■2■次に以下を行い… Sub 複数のシートを1つのシートにまとめる() Dim i As Long Dim R As Long Dim s As Long Dim Sh As Worksheet Dim MaxRow As Long Dim MaxCol As Long Dim MyArray As Variant Dim JoinSh As Worksheet Application.DisplayAlerts = False 'シート削除時のアラート停止 For Each Sh In Worksheets If InStr(Sh.Name, "統合") <> 0 Then Sh.Delete 'すでに統合シートが存在する場合は一旦削除 Next Application.DisplayAlerts = True 'シート削除時のアラート停止を解除 s = 1 '最大行を超えた場合次の統合シートを作成するための番号 Worksheets.Add Before:=Worksheets(s) '新規に統合シートを追加 ActiveSheet.Name = "統合" Set JoinSh = ActiveSheet '統合シートを変数に格納 For i = s + 1 To Worksheets.Count 'シートを統合シートの次～末尾までループ With Worksheets(i) '各月シート If i = 2 Then R = 1 '最初だけ項目も取得 Else R = 2 '最初以外は2行目から取得 End If MaxRow = .Cells(Rows.Count, 1).End(xlUp).Row '1列目で最終行を取得 MaxCol = .Cells(1, Columns.Count).End(xlToLeft).Column '1行目で最終列を取得 MyArray = Range(.Cells(R, 1), .Cells(MaxRow, MaxCol)) 'A1～データ末尾まで配列に格納 End With With JoinSh '統合シート MaxRow = .Cells(Rows.Count, 1).End(xlUp).Row '統合シートの１列目で最終行取得 If MaxRow + UBound(MyArray) > Rows.Count Then '最大行を超える場合の処理 s = s + 1 '統合シートの番号を加算 Worksheets.Add Before:=Worksheets(s) '新規に統合シートを追加 ActiveSheet.Name = "統合" & s '名前が同じにならないように番号を追加 Set JoinSh = ActiveSheet '統合シートを変数に格納 MaxRow = JoinSh.Cells(Rows.Count, 1).End(xlUp).Row '統合シートの１列目で最終行取得 End If If .Cells(1, 1) = "" Then '最初だけ1行目から貼り付け Range(.Cells(1, 1), .Cells(UBound(MyArray), MaxCol)) = MyArray Else '最初以外は最終行の次に貼り付け Range(.Cells(MaxRow + 1, 1), .Cells(MaxRow + UBound(MyArray), MaxCol)) = MyArray End If End With Next i End Sub ■3■最後に…、手作業で形式をコピーし、統合したファイルにペーストしています。一度で解決するVBAをお教えいただけると本当に有難い限りです…。お手数ですが、ご回答を心よりお待ちしております。大変恐縮ですが、どうぞ宜しくお願い申し上げます。

質問日時: 2024/02/19 21:37 質問者: yuri_7 カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
IT業界より楽に稼げる業界ってあるんですか？銀行とか？

IT業界より楽に稼げる業界ってあるんですか？銀行とか？

質問日時: 2024/02/19 12:56 質問者: だいぬカテゴリ: その他（プログラミング・Web制作）

ベストアンサー

12

0
ボタンを押したあとに画像を表示させる方法についてアドバイスお願い致します

ファイルアップロードが可能な Q＆A 掲示板を作成しており入力画面のボタン送信の際に時間がかかる為、確認画面に切り替わるまでローディングアニメーション画像を表示したいと考えております。ボタンの上に重なる形で実装したいのですが、座標を指定する方法以外で画像をボタン上に表示させる方法はありますでしょうか？座標はスマホやタブレットの端末ごとに異なる為、別の方法で考えております。 Ajax を使う方法もあると思うのですが入力画面から確認画面までを非同期通信で行っているため、速度を考えて極力避けたいです。 ※該当コード（bbs_quest_input.php） https://wandbox.org/permlink/hYhRZBA0NG6HbOIw ※ローディングアニメーション https://nagashima.kyusan-u.ac.jp/note/loading-animation/ ※送信が完了するまでローディング https://moshashugyo.com/media/loading

質問日時: 2024/02/18 22:57 質問者: 初心者サイト作成カテゴリ: JavaScript

ベストアンサー

1

0
VBA ファイル名取得

ネットで調べて下記のVBAでファイル名が取得できるみたいなんですができません。何か間違っているところありますか？いろいろ調べて他のコードも試したのですができません。そもそもガイル名を取得するさいになにか特殊な設定等ありますか？ Sub GetFileName() Dim FileName As String Dim Path As String Dim i As Long ' このファイルがあるフォルダーのパスを取得 Path = ThisWorkbook.Path ' フォルダ内のエクセルファイル名を取得して貼り付ける FileName = Dir(Panh & "\ファイル\" & "*.xlsx") 'ファイル名を各行の初期値を設定 i = 2 '該当するファイルがなくなるまでループ Do While FileName <> "" 'ファイル名をセルに入力 Cells(i, 1) = FileName '次のファイルを取得 FileName = Dir() 'iをカウントアップ i = i + 1 Loop End Sub

質問日時: 2024/02/18 13:24 質問者: ケイ0000 カテゴリ: Visual Basic（VBA）

解決済

3

0
メールの件名をデコードしたい

メールをダウンロードしてテキストで見ると、件名は、例えばこのように表示されます。 Subject: =?ISO-2022-JP?B?GyRCJCpPTSRTJEgkNE8iTW0bKEI=?= これをデコードすると、Subject:お詫びとご連絡になります。(WEBに変換サイトあり) この作業をVBAでできないでしょうか?

質問日時: 2024/02/17 10:53 質問者: Ninjya2436 カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
メールの件名のセットでエラーになる原因がわかりません

メールの件名をデコードしようとしていますが、こんな簡単な操作にエラーがでてしまいます。 If Left(LineDATA1, 8) = "Subject:" Then SBJvalue1 = Mid(LineDATA1, 10, 100) End If Cells(rawi, 4) = SBJvalue1　←　ここで、以下のエラーで止まります。実行時エラー1004 アプリケーションの定義エラーまたはオブジェクトの定義エラー何が原因でしょうか?

質問日時: 2024/02/17 09:20 質問者: Ninjya2436 カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
ホワイトハッカー

ホワイトハッカーはどのプログラミング言語を使うのが一番いいですか？

質問日時: 2024/02/17 08:33 質問者: ._.._.._.._.._. カテゴリ: その他（プログラミング・Web制作）

解決済

7

0
エクセルファイルのデータ転記について

画像の下のエクセルファイル(CSVと記載がありますがエクセルです）のデータを上の転記ファイルに転記させるマクロを作りました。赤の矢印のところに転記させるようにしています。転記ファイルの黄色部の図番、品名、内製価格のデータは下のエクセルファイルにはありません。この3つは現在、前回のデータをコピペしています。例えば上の転記ファイルは下のエクセルファイルのデータを転記させた状態で、この時点では黄色部の部分は空白の状態です。転記ファイルのC列のオ－ダ－NO. AA0000　D列のB00　E列の080　F列の枝番04-00 画像にはありませんが、もっと上のほうに枝番03-00という1個前のデータがあるので、03-00の時のデータをコピーして貼り付けをしています。この作業がなかなか大変なのでこちらも前のデータのものを拾って転記できないかと考えています。考えているのが、AA0000　B00　080という番号を図番のAA0000B000801Bとマッチさせて転記できないかと。画像のファイルだと次にAA0000　B00　080がきた場合枝番は06-00となりますが、図番、品名、内製価格の3つは前回の枝番のものと同じにしたいのです。ややこしいのですが、枝番は数字だけではなくアルファベットの時もあります。AD-00など。その場合前回の枝番はAC-00。このように下へとどんどんデータが追加されていきます。どういうやり方がよいのかは分かりませんが、自分で考えてみたコードだとうまくいきません。コードを貼り付けるので、いい方法があれば教えて頂きたいです。図番、品名、内製価格のところのコードです。分かりやすいように少し間隔を開けています。ちなみに図番、品名、内製価格以外の転記はできています。 Sub 転記() Dim wb As Workbook Dim sh As Worksheet Dim fname As String Dim tbl As Variant Dim r1 As Long, r2 As Long Dim i As Long Application.ScreenUpdating = False Set sh = ActiveSheet With sh r1 = .Cells(Rows.Count, 2).End(xlUp).Row tbl = .Range("C3:K" & r1) End With fname = ThisWorkbook.Path & "\" & "注文.xlsx" Set wb = Workbooks.Open(fname) With wb.Worksheets(1) For r2 = 27 To .Cells(Rows.Count, 1).End(xlUp).Row r1 = r1 + 1 sh.Cells(r1, 2).Value = .Cells(r2, 8).Value '注番転記 sh.Cells(r1, 3).Value = .Cells(r2, 9).Value 'オ－ダ－NO.転記 sh.Cells(r1, 4).Value = .Cells(r2, 10).Value '部門転記 sh.Range(sh.Cells(r1, 5), sh.Cells(r1, 6)).NumberFormatLocal = "@" sh.Cells(r1, 5).Value = Format(.Cells(r2, 11).Value, "000") '製番転記 sh.Cells(r1, 6).Value = Format(.Cells(r2, 12).Value, "00") & "-" & Format(.Cells(r2, 13).Value, "00") '枝番転記 sh.Cells(r1, 9).Value = .Cells(r2, 17).Value '数量転記 sh.Range(sh.Cells(r1, 10), sh.Cells(r1, 11)).NumberFormatLocal = "#,##0" sh.Cells(r1, 10).Value = .Cells(r2, 16).Value '単価転記 sh.Cells(r1, 17).Value = .Cells(r2, 7).Value '発注日転記 sh.Cells(r1, 18).Value = .Cells(r2, 20).Value '納期転記 '図番,品名,内製価格 For i = 1 To UBound(tbl) If .Cells(r2, 9).Value = tbl(i, 1) And .Cells(r2, 10).Value = tbl(i, 2) _ And .Cells(r2, 11).Value = tbl(i, 3) Then sh.Cells(r1, 7).Value = tbl(i, 5) sh.Cells(r1, 8).Value = tbl(i, 6) sh.Cells(r1, 11).Value = tbl(i, 9) Exit For End If Next i 'メーカー Select Case .Cells(r2, 5).Value Case "CHUAN YAO MACHINERY CO.,LTD" sh.Cells(r1, 16).Value = "全曜機械" Case "ZEN MACHINERY CO.,LTD" sh.Cells(r1, 16).Value = "大成ハイテック" Case "MANUFACTURING(THAILAND)" sh.Cells(r1, 16).Value = "HMT" End Select Next r2 End With With sh End With Range("A1:A2000").EntireRow.Delete wb.Save wb.Close 'wb.Close 'Kill fname Application.ScreenUpdating = True End Sub どなたか知恵えを貸して下さい。よろしくお願いします。

質問日時: 2024/02/17 02:10 質問者: Wrangleruk カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
3DCG

中2の13歳で3DCGをはじめるのはおそくないですか？

質問日時: 2024/02/16 21:35 質問者: ._.._.._.._.._. カテゴリ: CGI

解決済

3

0
Powershellとコマンドプロンプト

web制作をしています。windows機でビルドするために、gulpコマンドを使用するのですが、Powershellでは実行ポリシーを変更しなければ、スクリプトを実行できません。コマンドプロンプトでは何もしなくても実行できます。 Powershellで実行ポリシーを変更すると、セキュリティ上危険があることは理解できるのですが、この危険はコマンドプロンプトにはないのでしょうか？デザイナー・コーダーであるため、このあたりの事には全く詳しくありません。 Powershellで毎回「Set-ExecutionPolicy RemoteSigned -Scope Process -Force」と入力するのが面倒なので、コマンドプロンプトを使用すればよいのですが、windows機ではコマンドプロンプトではなく、Powershellに移行していっているということで、気になりました。詳しい方よろしくお願いいたします。

質問日時: 2024/02/16 21:10 質問者: sanaeeeee カテゴリ: その他（プログラミング・Web制作）

解決済

2

0
VBA エクセルで1列で表示したい。

このマクロなんですが、Sent_88310.emlを1列で表示したいのですが、ここにあるように myFields = Split(inRec, ",")　カンマで区切られて、2列になってしまいます1列にしたく、いろいろ、やってみますが、構文エラーになったり、うまく動きません。どんなふうに、修正したらいいのでしょうか? --------------------- Public Sub ReadCSV() 'CSVファイルの読み込み Dim n As Long Dim myFields As Variant Dim inRec As String Dim r As Long Dim c As Long n = FreeFile Open ThisWorkbook.Path & "\Sent_88310.eml" For Input As #n r = 1 Do While Not EOF(n) Line Input #n, inRec myFields = Split(inRec, ",") For c = 0 To UBound(myFields) Cells(r, c + 1).Value = myFields(c) Next c r = r + 1 Loop Close #n End Sub ---------------------------

質問日時: 2024/02/16 20:34 質問者: Ninjya2436 カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
HTML入門でもう躓いてしまった。

https://www.tohoho-web.com/wwwbeg1.htm#Display 上記サイトを参考にメモ帳ファイル（ファイル名はtest.html）に下記のコードをコピペした。 <!DOCTYPE html> <html> <head> <title>HTMLの練習</title> </head> <body> 初めてのWebページです。 </body> </html> 保存後、再度test.htmlファイルをダブルクリック。すると、「初めてのWebページです。」とブラウザで表示された。ここまでは順調だったけど、これ以降前に進みません。サイトの説明では、「初めてのWebページです。」という文章を修正してみましょう。メモ帳で、「初めてのWebページです。」を、「私の初めてのWebページです。」に変更してください。と説明してありますが、テキスト変更する画面がありません。「私の」という文字を追加したいですが、どこで追加すればいいですか？　この参考サイトにはそこまで説明していません。全然前に進めなくなってしまった。

質問日時: 2024/02/16 14:19 質問者: hまる子カテゴリ: HTML・CSS

解決済

10

0
サーチコンソールで被リンクを確認、おかしいサイトは、なぜあるのですか？否認していいですか？

サーチコンソールで被リンクを確認しています。リンク先を見ると、まともなサイトもありますが、画面が白いままで待っても表示されなかったロボットでないことを確認するためボタンを押してくださいパスワードを求められたり全然、関係のない海外のサイトだったりサイト内に　リンク自体がなかったりします。なぜ、こういった意味不明のリンクがあるのですか？こういったリンクは、気持ち悪いので否認してもいいでしょうか？すいませんが　教えてもらえないでしょうか？よろしくお願いいたします。

質問日時: 2024/02/15 09:20 質問者: motoentaro カテゴリ: SEO

ベストアンサー

1

0
ものづくりに向いているプログラミング言語ってなんですか？家電にもプログラミングが使われてるとか

ものづくりに向いているプログラミング言語ってなんですか？家電にもプログラミングが使われてるとか

質問日時: 2024/02/14 19:00 質問者: 45450721 カテゴリ: その他（プログラミング・Web制作）

解決済

10

1
VBAで特定のシート以外のシート名を変更したい

VBA超ビギナーです。ネットで調べて、「すべてのシート名を日付に変更する」まではできたのですが、「特定のシート(シート名「シート名変更」)を除外してシート名を変更する」にするにはどこをどう変更すればいいのかわかりません。以下は現在組んでいるコードです。どのように変更すればよいでしょうか？ Sub シート名一括で変える() Dim Ws As Worksheet Dim D As Date '最初の日付 D = Range("D3").Value '全シートをループ For Each Ws In Worksheets 'シート名を変更する Ws.Name = Format(D, "m.d(aaa)") '日数にプラス1をする D = D + 1 Next Ws End Sub

質問日時: 2024/02/14 13:00 質問者: kkkkk_99 カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
ホームページにメールフォーム用のcgiを設置したいのですがうまくいきません

windows10ですがan httpdがダウンロードできない、パソコンの様です。代替案はないでしょうか？入門の環境づくりの段階です

質問日時: 2024/02/13 02:59 質問者: gejigeji1 カテゴリ: CGI

解決済

3

0
LeetCodeていうの初めて、

Premiumを購読しようかなって思うんですけどこういうプログラミング勉強サイトってあとでくだらなかったみたいになりますか？いま大学生です

質問日時: 2024/02/12 19:06 質問者: ゆゆにゃ。カテゴリ: C言語・C++・C#

ベストアンサー

2

0
Outlookの「受信日時」「件名」「本文」などをVBAを使ってExcelに転記したい

Outlookの「受信日時」「件名」「本文」などをVBAを使ってExcelに転記したいのですが、下記のコードですと、古い受信日時から1件しか取得できません。出来れば、「受信トレイ」や「移動」「下書」きなどの取得したいフォルダーを選択し、新しい日付けから、「受信日時」「件名」「本文」を一括で Excelに転記できるVBAコードに設定にして頂けると助かります。よろしくお願いいたします。 VBAコードURL https://writening.net/page?NWK5ZZ

質問日時: 2024/02/11 00:46 質問者: ボアヒロカテゴリ: Visual Basic（VBA）

ベストアンサー

1

1
disabled プロパティが表示されない原因が分からない

Q&A掲示板を作成していて名前とメッセージが送信可能条件を満たしていない場合、ボタンの色を変更させたいと考えております。 disabled プロパティで色の変化を付けており以前は表示されていたのですが、コードを変更したところ表示されなくなってしまいました。アドバイスお願い致します。 ※表示されていたころのコード <div class="post-button"> <button type="submit" id="submit_button" name="mode" value="confirm">表示画面へ進む</button> </div> <script> function validation_submit(f) { const submit = document.getElementById("submit_button"); /* 判定は逆なので、逆に渡す */ submit.disabled = f ? false : true; }; function validation_text(parts) { /* このpartsグループの、inputを抽出 */ let text = parts.getElementsByClassName('input')[0]; /* 最小チェック */ if (text.value.length == 0) { return false; } /* 最大チェック */ if (text.value.length >= text.dataset.length) { return false; } return true; }; /* バリデーション条件判断部分 */ function validation() { let parts = document.getElementsByClassName('parts'); let submit = true; for (let i = 0; i < parts.length; i++) { if (validation_text(parts[i]) != true) { submit = false; } } validation_submit(submit); }; /* 文字数表示 */ document.addEventListener('input', e => { if (!['name', 'message'].includes(e.target.id)) return; const t = e.target, m = t.nextElementSibling, n = t.value.length - (t.dataset.length | 0), c = document.createElement('span'); c.append(Math.abs(n)); m.style.color = n > 0 ? 'red' : 'black'; m.replaceChildren(n > 0 ? '' : '残り', c, `文字${n > 0 ? '超過してい' : '入力でき'}ます。`); /* 毎回判定によるボタン制御 */ validation(); }); /* 初回判定のボタン制御 */ validation(); }; document.addEventListener("DOMContentLoaded", init); </script> ※表示されなくなってしまったコード <div class="post-button"> <button type="button" id="input_button" name="mode" value="confirm">確認画面へ進む</button> </div>  <script> function validation_submit(f) { const submit = document.getElementById("input_button"); /* 判定は逆なので、逆に渡す */ submit.disabled = f ? false : true; }; function validation_text(parts) { /* このpartsグループの、inputを抽出 */ let text = parts.getElementsByClassName('input')[0]; /* 最小チェック */ if (text.value.length == 0) { return false; } /* 最大チェック */ if (text.value.length >= text.dataset.length) { return false; } return true; }; /* バリデーション条件判断部分 */ function validation() { let parts = document.getElementsByClassName('parts'); let submit = true; for (let i = 0; i < parts.length; i++) { if (validation_text(parts[i]) != true) { submit = false; } } validation_submit(submit); }; const init = function () { set_attach_event(); document.getElementById("input_button").addEventListener("click", input_button_click); /* 文字数表示 */ document.addEventListener('input', e => { if (!['name', 'message'].includes(e.target.id)) return; const t = e.target, m = t.nextElementSibling, n = t.value.length - (t.dataset.length | 0), c = document.createElement('span'); c.append(Math.abs(n)); m.style.color = n > 0 ? 'red' : 'black'; m.replaceChildren(n > 0 ? '' : '残り', c, `文字${n > 0 ? '超過してい' : '入力でき'}ます。`); /* 毎回判定によるボタン制御 */ validation(); }); /* 初回判定のボタン制御 */ validation(); };//const init = function () の終了 }; //const set_attach_event = function () の終了 //DOM構築、スタイルシート、画像、サブフレームの読み込みが完了した後に発生する window.addEventListener("DOMContentLoaded", init); </script>

質問日時: 2024/02/10 21:44 質問者: 初心者サイト作成カテゴリ: JavaScript

ベストアンサー

2

0
マクロについて質問です。セルの内容をクリアするコマンドボタン（AX）を作成しました。指定範囲が

マクロについて質問です。セルの内容をクリアするコマンドボタン（AX）を作成しました。指定範囲が30個までなので、ボタンが全部で4つあります。これを1つにまとめて1度にすべてクリアしたいです。やり方を教えてください。お願いします。

質問日時: 2024/02/10 19:13 質問者: せえちゃんカテゴリ: Visual Basic（VBA）

解決済

1

0
Excel VBAで値を変えながら、pdf出力したい

いつもありがとうございますm(__)m 学生の成績個票をVBAを用いて、印刷しています。（以下のコードです） Sub 正方形長方形1_Click() a = Range("M2") b = Range("O2") For i = a To b Range("B2") = i Worksheets("印刷用１").PrintOut Next i End Sub ------------------------------------------------------------------------- 今度は、学生番号〇番～〇番の成績個票を、pdf出力したいのですが、どのようなコードをかけばいいのでしょうか？ちなみに、ひとつのファイルに出力したいです。お詳しい方、宜しくお願い致します。

質問日時: 2024/02/10 10:46 質問者: mapmap1027 カテゴリ: Visual Basic（VBA）

ベストアンサー

3

0
Chinapost こよパズルどう動かしますか？？タップしても長押ししても動きません。わかる方お

Chinapost こよパズルどう動かしますか？？タップしても長押ししても動きません。わかる方お願いします。

質問日時: 2024/02/09 21:30 質問者: さはこカテゴリ: AJAX

解決済

1

0
MacのPythonでの開発について

MacのPythonでの開発が必要になっています。MacOS、Excel、Webをハンドリングする必要があります。当方、WindowsでのExcel-VBAの経験はありますが、MacやPythonでの開発は初めてです。１）どのようなライブラリを使えばよいでしょうか。２）参考文献、サイト等、ありますでしょうか（GoogleのGeminiに聞きましたが嘘ばかりつかれました）。３）Windows版とMac版で、システムの互換性はどの程度ありますでしょうか。４）気を付ける点はありますでしょうか。以上、よろしくお願い申し上げます。

質問日時: 2024/02/09 14:13 質問者: hgama1024 カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

3

0
個人ｈｐ外部ページへのリンクで評価渡す

こんにちはｈｐ自作しております。内部リンクは普通に相対パスで、末尾のファイル名だけのリンク設定です。外部リンクは下手にやるとサイトの評価を渡してもったいないといわれたので、修正済みです。サイト内全部検索で外部リンク一覧を出したところ、うちの問い合わせフォームへのリンクが大量に見つかりました(;^_^A たくさんリンク張られているということはその分たくさん評価渡してるんでしょうか？ nofollow設定したほうがいいですかねちなみに問い合わせフォーム自体がもちろん検索で出てこなくても問題ないので問い合わせたい人だけが見れれば。

質問日時: 2024/02/09 12:41 質問者: linkshuu カテゴリ: SEO

解決済

1

0
Webアプリや業務アプリのデータ登録処理について質問です。基本的な流れはユーザー入力バリデーショ

Webアプリや業務アプリのデータ登録処理について質問です。基本的な流れはユーザー入力バリデーション DB更新です。この時ユーザー入力 ↓ バリデーション ↓ DB更新を非同期処理に登録 ↓ バリデーション結果を出力 ↓ 非同期処理終了という流れではダメなのですか？重複チェックなどはバリデーションの際にロックをかけて行うとします

質問日時: 2024/02/09 08:32 質問者: だいぬカテゴリ: その他（プログラミング・Web制作）

ベストアンサー

3

0

【プログラミング・Web制作】に関するカテゴリ

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

【プログラミング・Web制作】に関するコラム/記事

プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた！

プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて！goo」にも、「プログラミングを学べる子供...
弁護士が解説！あなたの声を行政に届ける「パブリックコメント」制度のすべて

社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」

「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
釣りと密漁の違いは？知らなかったでは済まされない？事前にできることは？

知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...