回答数
気になる
-
プログラミングサイトについて。
コードプレップというプログラミングサイトは、何の言語が学べるのでしょうか?全種類挙げて頂けると幸いです。
質問日時: 2024/06/12 16:37 質問者: メラゾーム カテゴリ: その他(プログラミング・Web制作)
解決済
1
0
-
Excelのマクロについて教えてください。
下記のマクロは先日教えて頂いた、マクロです。 コピー元の指定フォルダ内の指定ファイル名「■北海道_20230731更新.pdf」の 「_20230731更新」この部分が点検終了日付をしてしており、都度、変更になります。 ワイルドカードを利用して「■北海道*」をコピー先にコピー出来る方法を教えてください。 又、コピー後は元のファイル名+「_Copy.pdf」となるようにお願いいたします。 現状のマクロ Sub 北海道条例() On Error Resume Next Dim targetCities As Variant Dim city As String Dim isExcluded As Boolean Dim copyFilePath As String Dim destinationFilePath As String ' 特定の都市名リスト targetCities = Array("旭川市", "釧路市", "札幌市", "室蘭市", "小樽市", "帯広市", "苫小牧市", "函館市", "北見市") ' セル F3 の都市名を取得 city = Sheets("受付").Range("F3").Value ' 都市名がリストに含まれているかどうかをチェック isExcluded = False For Each c In targetCities If city = c Then isExcluded = True Exit For End If Next c ' リストに含まれていない場合 If Not isExcluded Then ' コピー元のファイルパス copyFilePath = "\\nas-sp01\share\確認部\■共通\審査の注意点\条例・細則【確認申請添付】\■北海道_20230731更新.pdf" ' コピー先のファイルパス destinationFilePath = ThisWorkbook.Path & "\■北海道_20230731更新_Copy.pdf" ' ファイルをコピー FileCopy copyFilePath, destinationFilePath End If End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2024/06/12 10:41 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
Excelのマクロについて教えてください。
Excelのマクロについて教えてください。 下記のマクロは先日教えて頂いたマクロです。 このマクロを利用して下記のように変更出来る方法を教えてください。 セル「F3」に 「旭川市・釧路市・江別市・札幌市・室蘭市・小樽市・帯広市・苫小牧市 函館市・北見市」以外の表示があった場合は、 コピー元のファイル「■北海道北海道_20230731更新」が作業フォルダ内にコピー出来る方法を教えてください。 例えば、F3に「北広島市」と表示されると フォルダ内に「■北海道_20230731更新_Copy.pdf」がコピー出来る方法を教えてください。 現状のマクロ Sub 条例() On Error Resume Next If Sheets("受付").Range("F3").Value <> "" Then Const copy_path As String = "\\nas-sp01\share\確認部\■共通\審査の注意点\条例・細則【確認申請添付】\" Dim strSource As String strSource = Dir(copy_path & "■" & Sheets("受付").Range("F3").Value & "*.pdf") FileCopy copy_path & strSource, _ ThisWorkbook.Path & "\" & Mid(strSource, 1, InStrRev(strSource, ".") - 1) & "_Copy.pdf" End If End Sub 以上となります。よろしくお願いいたします。
質問日時: 2024/06/11 17:23 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
ゆゆにゃ。
回答 0件 再帰の空間計算量って おしえて recursion stackもかんがえますか? スタックコール スタックオーバーフロー さいきふかさ
解決済
1
1
-
入力された文字列が、LD22000を、出来る限り正確に判断する正規表現を教えてください。 Paiza
入力された文字列が、LD22000を、出来る限り正確に判断する正規表現を教えてください。 Paiza Cloudです
質問日時: 2024/06/09 18:30 質問者: WhereMonthName カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
1
0
-
VBAなくなるの?
VBAがなくなる、使えなくなると言う記事なりユーチューブを見たのですが本当でしょうか? 今でも仕事でVBAを使っているのですが使用できなくなるってこと? もしそうなら今後はなにで代用できますか?詳しい方いれば教えて下さい。 早めに勉強しようと思いますので勉強方法なども教えてくださると助かります。
質問日時: 2024/06/09 11:28 質問者: ケイ0000 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
プログラミングの課題がわからないので教えていただきたいです。特にサークル関数を定義した後に呼び出す方
プログラミングの課題がわからないので教えていただきたいです。特にサークル関数を定義した後に呼び出す方法がよくわかっていません。よろしくお願いします
質問日時: 2024/06/08 17:23 質問者: 山田ボールペン カテゴリ: C言語・C++・C#
ベストアンサー
2
0
-
私、Paiza Cloudやっているのだけど 上手くいきません どこかが間
私、Paiza Cloudやっているのだけど 上手くいきません どこかが間違ってますよね? 教えてください。 <!DOCTYPE html> <html> <head> <meta charset="UTF-8"/> <title>正規表現情報取得・表示</title> </head> <body> <?php $val=$_POST['val'];//regex1.phpからvalを受け取り if(preg_match('/123|/',$val)){//もし,$valが123という数字ではあったら} echo"入力された数字"$val.は、123と一致しました。<br/>"; echo '<a href="regex1.php">再度,入力</a>'; }else{ //そうでなかった場合 echo "入力された数字".$val."は,123とは一致しません。再度,入力してください.<br />"; echo'<a href="regex1.php">再度,入力入力</a> } ?> </body>
質問日時: 2024/06/08 13:44 質問者: WhereMonthName カテゴリ: HTML・CSS
ベストアンサー
1
0
-
なんで
長さnの入力に対し0からnー1までの連番を一時的に記憶するのだからO(nlogn)の記憶容量を要する なんでですか??
質問日時: 2024/06/07 18:00 質問者: ゆゆにゃ。 カテゴリ: C言語・C++・C#
ベストアンサー
3
2
-
WEBサイトの作成で、imgタグには現在もwidthとheightの指定が推奨ですか?
お詳しい方アドバイスを頂けないでしょうか? タイトルの通りなのですが、現在サイトの作成を行っているのですが、何やらSEO対策の一環として、すべての画像へwidthとheightの指定を行うとのことなのですが、ここで質問です。 現在でもwidthとheightの指定を行うことは、HTMLのマークアップの観点、SEOの観点からして有効、また推奨されていることなのでしょうか?(GoogleやMozillaはこれらについて公式に何か出されていますでしょうか?) というのが、現在レスポンシブでの設定が一般的なので、PCでwidthとheightの指定を行っても、スマホサイトではこの指定した数字の意味はなくなると思います、その逆もしかりだと思います。 特にスマホサイトの場合には、親要素に対しての相対的な数字の指定が一派的ですし、それら多くの指定はHTMLの数字を上書きするという意味でもCSS側で行っていることがほとんどだと思います。 こういった状況を踏まえたうえでも、やはり画像へwidthとheightの指定は行うのが良いのでしょうか? 必要かつ有効ということであればすべてに定義したいと思いますが、その際はPCの際の画像として表示する際のサイズを指定した方がよいのでしょうか? 逆に、現在は記載しないのが一般的、推奨や指定しない分容量が少なくなるので記載しない方がよいなど、逆のご意見等ございましたら合わせてお伺いできればと思います。 宜しくお願いいたします。
質問日時: 2024/06/07 17:16 質問者: 404not_found カテゴリ: HTML・CSS
ベストアンサー
1
1
-
vba 削除
質問ですシートに値の一覧が複数あります。それを条件に基づいて行を削除したいです。 条件ですが画像の2行目、3行目のようにa2、b2、c2、a3、b3、c3セルの内容が同じでd2が空白、d3は文字が入っています。この2行がペアでe列が両方okなら合格で5行目、6行目のように片方にngがあればそのペアは不合格です。この条件でシートに一覧で並んでいるものを振り分けて不合格ならそのペアの両方の行を削除するVBAを作りたいです。初めはngを検索して削除していたのですがそれだとokが残ってしまいますがペアで揃って合格なので一つだけしかないものも削除したいです。 説明が難しいのとヘタでわかりにくいと思いますが、理解してくださった方おられれば教えて下さい
質問日時: 2024/06/04 21:05 質問者: ケイ0000 カテゴリ: Visual Basic(VBA)
解決済
3
0
-
トップページの順位が下がった
サイト自作しています。 トップページは地元ライバルの中でいつも検索1位だったのですが最近3か4位に下がりました。 サブページもいろいろやってますがだいたい上位なんですがうっすら下がったように思います。 思い当たるのは需要がないページはだいぶ整理してすっきりしました。人気あるページもいろいろ考えて削除したのも少数あります。でもサイト全体では何十ページもあり100p→何十ページにスリム化って感じです。 あるページではビフォアアフターをたくさんjpg画像で載せて重くなったかもしれません。10こくらい追加した程度ですが。 何で順位が下がったかりしたいです。 サブページを変更→トップページの人気を左右?その逆はある?という点が気になります。 トップは色々詰め込んでます。見る人が見れば充実している。見る人が見るとごちゃごちゃしてわけわからないと判断される恐れも。ただ、トップ表示だった頃もたくさん載せてて現状そんなに変わってないので急に下がった理由がわかりませんが
解決済
2
0
-
情報の表現。()内がどうしてもわかりません。
問題1 この問題では、単位を以下の様に定める。 bps = bit per second 1000bps = 1kbps 8bit = 1 byte 1000 byte = 1 kbyte 音声を録音する時、1600bpsで5分間録音した。 この音声データの情報量は 60kbyte 8kbpsで音声を録音した後、情報量は600kbyteとなった。 この音声は( )分間の長さである。 問題2 単位を以下の様に定める。 8 bit = 1 byte 1000 byte = 1 kbyte 400×400ドットの3ビットRGBカラー画像の情報量は( )kbyte 4諧調RGBカラーで表現できる色の数は( )色
質問日時: 2024/06/04 15:50 質問者: tokiwakouen1 カテゴリ: Ruby
解決済
4
0
-
C#でログファイルにファイルパスが出ないようにしたい
C#で、以下のような処理が入ってる書いたプログラムソースがあります (省略) try { (省略) } catch(Exception ex) { MessageBox.Show("失敗"); using (StreamWriter js = new StreamWriter($"error.log", true)) { js.Write(DateTime.Now.ToString("g") + ex.ToString() + "\n"); } return; } (省略) VisualStudioでリリースビルドしたexeファイルを他の人のPC上で実行させて、この処理が動いた際、error.logに以下が書き込まれてました 2024/06/01 11:50 省略 ~ Button_Click(Object sender, RoutedEventArgs e) in C:\work\001\002\code\Tool\Tool\OutPut.xaml.cs:line 1512 error.log に出てきたファイルパスは、自分がこのプログラムを作成した時のファイルパスだと思います どのファイルがどの行でエラー出したかが分かりやすくて良いのですが、作成時のファイルパスが入ってるのがなんか嫌です これって ex.ToString() の処理で書き込まれた部分ですが、ファイルパスは出さないようにできますか?
質問日時: 2024/06/04 10:36 質問者: Gorgons カテゴリ: C言語・C++・C#
ベストアンサー
6
1
-
FLASHでゲームを作っていた人は、今、何で作っている?
以前、FLASHゲームが流行し、ウェブブラウザでよく遊ばれていました。 セキュリティ上の問題などから、FLASHは過去のものとなりましたが、当時FLASHでゲームを作っていた人は、今、何で作っているのですか?
ベストアンサー
2
0
-
【abc】に【完全一致】する正規表現を教えてください。
【abc】に【完全一致】する正規表現を教えてください。paiza cloudです
質問日時: 2024/06/02 16:27 質問者: WhereMonthName カテゴリ: オープンソース
ベストアンサー
2
1
-
Geogebraの操作方法について
Geogebraにおいて、写真のように変数のもつ値に対応して、aの値が変わるような式のテキストを作成したいです。 見よう見まねで作っても、[a]としか表示されず、変数として表示が反映されません。 どうすればいいのでしょうか
質問日時: 2024/06/01 11:13 質問者: みなゆう カテゴリ: Visual Basic(VBA)
解決済
1
0
-
だれがとけるの?
回答ではtというパラメーターを付け加えて積分しやすい形にして、微分して、t=1 (問題の積分)を代入したた。面白いとは思うけど本番にできるかわからない。他の開放はありませんか??
質問日時: 2024/05/30 14:35 質問者: ゆゆにゃ。 カテゴリ: C言語・C++・C#
ベストアンサー
5
0
-
バッチファイルで以下のようなものは作れますか? ・Microsoft Defenderでウイルススキ
バッチファイルで以下のようなものは作れますか? ・Microsoft Defenderでウイルススキャン実行 ・スキャンの進捗をプログレスバーなどで表示 ・スキャン結果をメッセージボックスで表示 よろしくお願いします
質問日時: 2024/05/30 11:18 質問者: chnicky_hap カテゴリ: C言語・C++・C#
ベストアンサー
1
1
-
ExcelのVBAコードについて教えてください。
Private Sub Worksheet_Change(ByVal Target As Range) Dim tbl As Variant Dim i As Integer Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False tbl = Array("D10", "D11", "E10", "E11", "F10", "F11") With Worksheets("審査") For i = 0 To 5 .Range("C" & 26 + i).Value = Range(tbl(i)).Value If Range(tbl(i)).Value = "" Then .Range("F" & 26 + i).Value = "" Else .Range("F" & 26 + i).Value = "後日図書の提出をお願いいたします。" End If Next i End With On Error Resume Next Sheets("消防添").Visible = [R37] = "消防添" 途中省略 Sheets("INDX").Visible = [D2] = "電子申請" 下記のコードもいくつか途中省略しております。 If Range("D2").Value = "紙申請" Then Call 電図 Else Call 紙図 End If If Range("N41").Value = "■" Then Call 注意1表示 End If If Range("D7").Value = "計画変更" Then Call 注意3表示 End If If Range("N44").Value = "■" Then Call 注意4表示 End If If Range("D5").Value = "車庫等:単独" Then Call 車庫単独 End If If Range("R55").Value = "車庫注意" Then Call 車庫単独 End If If Range("D7").Value = "計画変更" Then Call 計変画像表示 End If If Range("Q27").Value = "■" Then Call 区分図形表示 End If If Range("D12").Value = "有" Then Call 消防表示 End If If Range("F13").Value = "有" Then Call 浄化槽表示 End If If Range("F8").Value >= 3 Then Call 通路 End If If Range("J16").Value = "消防同意必要" Then Call 消防貼り付け End If If Range("Q2").Value = "■" Then Call 市町村名コピー End If If Range("F3").Value = "旭川市" Then Call 旭川市図形表示 End If If Target.Address = "$C$20" Then Call 審査担当コメント非表示 End If Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub 以上となります。
質問日時: 2024/05/29 16:59 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
5
0
-
40代後半でゼロからのプログラム業界への転職
46歳です。 専門学校で20年近く、就職担当をしていたのですが、先日、校長とトラブルがあり、6月30日付で退職することにしました。 トラブル内容は一度は文章に書いたのですが、17行本文が増えてしまい、全体的にかなりの長文になってしまい、今回の回答をいただくには影響がないので割愛します。 それで特にお世話になった企業の就職担当者さんにだけご挨拶をしたのですが、その中の一つの会社の社長さんが連絡をしてきてくれて次の転職先について質問され、まだ何も決まっていないけれど1か月の間に色々と考えるつもりと回答をしたら「うちはとにかくプログラマーが不足している。スタートは新卒中心の若手と一緒の研修になるけれど我が社で働いてほしいと言われ、条件面も前職の給料程度は保証するけれどそれよりも出せると思う。前向きに検討して欲しい。」と言われました。 働きながらの研修なので受講料が無料なのはもちろんのことその間の給料も出るそうです。 研修についていけなかったらどうなるのか聞いたらマスターするまで何度でも受講は可能で過去に挫折して退職したようなケースはないから心配無用と言われました。 とてもありがたい話ではあるのですが、ここの過去ログやネットで調べても無謀な挑戦のような気がします。 現実問題、46歳業界未経験者が22歳の若者と勉強して仕事にすることは出来るのでしょうか? プログラムは未経験ですが、パソコン自体はある程度は得意で学内のパソコンの入れ替えとかは業者には頼まずに情報の教員と私でいつも行っていました。
質問日時: 2024/05/28 01:22 質問者: デシンセイ カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
8
1
-
先日ウェブデザイン技能検定三級を受けたのですが、公式の解答では答えが②となっているのですがその理由が
先日ウェブデザイン技能検定三級を受けたのですが、公式の解答では答えが②となっているのですがその理由がわかりません。わかる方答えていただけないでしょうか。 Q.次のHTMLのリンク部分の表示についての適切な説明はどれか。以下より1つ選択しなさい。 HTML ----------------------------------------------------------------------- <! DOCTYPE html> <html lang="ja"> < head> <meta charset="utf-8"> <title>ウェブデザイン技能検定</title> ‹style > body { background-color: #FFF; } h1{ color: rgb (255, 0, 0); text-decoration: none; } a {color: rgb(0, 255, 0); } </style> </head> < body> <h1> <a href="index.html">ウェブデザイン技能検定</a> </h1> </body> </html> ----------------------------------------------------------------------- ①文字色は赤色で下線が引かれる。 ②文字色は緑色で下線が引かれる。 ③文字色は赤色で下線は引かれない。 ④文字色は緑色で下線は引かれない。
解決済
3
0
-
正規表現 URL抽出「 [\/\b]{0} 」 の意味教えてください。
$pattern = "/http:\/\/([\w\.:]+)[\/]*([\w\.~\?=%\/&]*)[\/\b]{0}/" の最後なんですが、よくわかりません。
質問日時: 2024/05/27 00:01 質問者: denpataro カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
2
1
-
X の仕様変更? 埋め込みフレーム、アカウントないと中身表示されない?
X サイトガイドでは、公開設定しとけばアカウントない誰のアクセスでも表示される と書いてあるけど。。 インフレーム設置側でどういう設定を確認すればいいですか?
ベストアンサー
2
0
-
VBA指定行削除
下記のVBAで ・a列の最終行までの重複しているその行全体を削除 ・b列の最終行までの「NG」と「中断」がある行全体を削除 したいのですがうまくいきません。どこにどのようにしたらできるでしょうか? a列のの重複だけ削除されていて他の行が残ったりします。 詳しい方教えて下さい。お願いします。 Sub 一覧() Dim lastRow As Long Dim sourceRange As Range Dim destinationRange As Range Dim firstUnderscorePos As Integer Dim lastUnderscorePos As Integer Dim valueBeforeUnderscore As String Dim valueAfterUnderscore As String ' シート1で最終行を取得 lastRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).row ' シート1でA2から最終行までの範囲を選択 Set sourceRange = Sheets("Sheet1").Range("A2:A" & lastRow) ' シート2のA1セルから貼り付け Set destinationRange = Sheets("Sheet2").Range("A1") ' 最初の"_"部分までをA列に、最後の"_"部分のあとをB列に貼り付け For Each cell In sourceRange valueBeforeUnderscore = "" valueAfterUnderscore = "" ' "_"の位置を取得 firstUnderscorePos = InStr(1, cell.value, "_") lastUnderscorePos = InStrRev(cell.value, "_") ' "_"が存在する場合 If firstUnderscorePos > 0 And lastUnderscorePos > 0 Then ' "_"の前の部分を取得 valueBeforeUnderscore = Mid(cell.value, 1, firstUnderscorePos - 1) ' "_"の後の部分を取得 valueAfterUnderscore = Mid(cell.value, lastUnderscorePos + 1) End If ' ".xlsx"を削除 valueBeforeUnderscore = Replace(valueBeforeUnderscore, ".xlsx", "") valueAfterUnderscore = Replace(valueAfterUnderscore, ".xlsx", "") ' A列に貼り付け destinationRange.value = valueBeforeUnderscore ' B列に貼り付け destinationRange.Offset(0, 1).value = valueAfterUnderscore ' 次の行に移動 Set destinationRange = destinationRange.Offset(1, 0) Next cell End Sub
質問日時: 2024/05/26 10:02 質問者: ケイ0000 カテゴリ: Visual Basic(VBA)
解決済
2
1
-
HTMLでサブフレームから親のスクリプトを実行する
サブフレームから親で定義したJavascriptの関数を実行しようとして以下のようにHTMLを作りました。left.htmlにあるボタンを押下すると、aaa.htmlにある関数loadを実行するようにしましたが、ボタンを押下してもalertが表示されません。load関数を実行できるようにしたいのですが、どのようにしたらよいのか、おわかりになる方、ご教示いただければありがたいです。 《aaa.html(親)》 -------------------------------------------------------------------------------------------------- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd"> <html lang="ja"> <head> <title>フレーム</title> <script> function load(){ alert('onload'); } </script> </head> <frameset title="サイトのタイトル" cols="100,*"> <frame src="left.html" title="左フレーム" name="left"> <frame src="right.html" title="右フレーム" name="right"> </frameset> </html> ------------------------------------------------------------------------------------------------- 《left.html(サブフレーム)》 ------------------------------------------------------------------------------------------------- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html lang="ja"> <head> <title>ひだり</title> </head> <body> <p>ひだり</p> <button type="button" onclick="window.parent.load();">親</button> </body> </html> ------------------------------------------------------------------------------------------------ 《right.html(サブフレーム)》 ------------------------------------------------------------------------------------------------- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html lang="ja"> <head> <title>みぎ</title> </head> <body> <p>みぎ</p> </body> </html> ------------------------------------------------------------------------------------------------ よろしくお願いします。
質問日時: 2024/05/25 20:42 質問者: yuzutosan カテゴリ: JavaScript
ベストアンサー
1
1
-
指定した演算を実施の結果を表示させるにはどうしたらいいですか?
指定した演算を実施の結果を表示させるにはどうしたらいいですか?
質問日時: 2024/05/25 13:37 質問者: WhereMonthName カテゴリ: HTML・CSS
ベストアンサー
1
0
-
指定した演算を実施の結果を表示させるにはどうしたらいいですか?HTMLです
指定した演算を実施の結果を表示させるにはどうしたらいいですか?HTMLです <!DOCTYPE html> <html> <head> <meta charset="UTF-8" /> <title>指定した演算を実施の結果を表示</title> </head> <body> <?php $num1 = $_POST['num1']; $num2 = $_POST['num2']; $res = $num1+$num2; echo $num1.'+'.$num2.'='.$res."です。"; ?> </body> </html>
質問日時: 2024/05/25 13:34 質問者: WhereMonthName カテゴリ: HTML・CSS
ベストアンサー
1
0
-
VBA一覧取得 再投稿
下記のVBAでエクセル名の取得できるところまでは作成できています。 このVBAで一覧にしてそのシート上でそのエクセルファイルを開きたいのですが できるでしょうか?エクセル名とパスを取得する感じできるでしょうか? 詳しい方教えてください。 最終的には名前で検索をかけて2つのファイルを開きたいと思っています。 ご意見よろしくお願いします Sub GetExcelFileNames() Dim folderPath As String Dim fileName As String Dim row As Long ' フォルダーのパスを指定 folderPath = "C:\YourFolderPath\" ' ここに対象フォルダーのパスを記入 ' フォルダーのパスがバックスラッシュで終わっているか確認 If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" End If ' 初期設定 fileName = Dir(folderPath & "*.xls*") ' フォルダー内のExcelファイルを取得 row = 1 ' アクティブシートをクリア Cells.Clear ' ファイル名を取得してシートに書き込む Do While fileName <> "" Cells(row, 1).Value = fileName row = row + 1 fileName = Dir Loop ' 終了メッセージ MsgBox "ファイル名の取得が完了しました。", vbInformation End Sub
質問日時: 2024/05/25 12:28 質問者: ケイ0000 カテゴリ: Visual Basic(VBA)
解決済
1
0
-
あなたのXAMPPのdashboard内のjavascriptsのall.jsを見せて欲しい。バグ?
私のxamppはscoopで入れたバージョン8.2.12-0でControl Panelはv3.3.0とあるのですが、 htdocs\dashboard\javascripts\all.js の5496行、" }); "が余ってSyntax Errorになります。 とっても、Syntax Errorがでます。 自分が入れたのか、最初からのバグが分かりませんが、正しくしたいです。 横の数字は行番号を合わせてあります。5446行からにしたのは、インデントがそうなっていたからです。 5446 $(document).foundation(); 5447 5448 5449 // tweet it form 5450 $('form#tweet').submit(function(event) { 5451 window.open($(this).attr('action') + '?' + $(this).serialize(), '_blank', 'scrollbars=no,menubar=no,height=400,width=500,resizable=yes,toolbar=no,status=no'); 5452 event.preventDefault(); 5453 }); 5454 5455 // substitute @2x images where available 5456 if (window.isRetina()) { 5457 console.log("loading retina images.."); 5458 var replacement; 5459 $('img[data-2x]').each(function(i, img) { 5460 replacement = $(img).clone().attr('src', $(img).data('2x')) || img; 5461 // only replace once the replacement is loaded 5462 replacement.load(function() { 5463 $(img).replaceWith($(this)); 5464 }); 5465 }); 5466 } 5467 5468 if (window.isLinux64) { 5469 $('a[data-x64-href]').each(function(i) { 5470 $(this).attr('href', $(this).data('x64-href')); 5471 }); 5472 } 5473 5474 $('a[data-delayed-href]').click(function(event) { 5475 window.open($(this).data('delayed-href'), '_blank'); 5476 window.location = $(this).attr('href'); 5477 event.preventDefault(); 5478 }); 5479 5480 // FAQ accordions 5481 var panels = $('dl.accordion > dd').hide(); 5482 var draws = $('dl.accordion > dt').css('cursor', 'pointer'); 5483 draws.click(function() { 5484 panels.slideUp(); 5485 var next = $(this).next() 5486 if (next.is(':hidden')) 5487 next.slideDown(); 5488 return false; 5489 }); 5490 5491 // Show section if anchor provided 5492 var anchor = window.location.hash; 5493 if(anchor !== ''){ 5494 $('dl.accordion > dd' + anchor).show(); 5495 } 5496 });
質問日時: 2024/05/24 18:27 質問者: denpataro カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
1
0
-
AIの登場でプログラマーたちが解雇されていますが
ではそのAIに指示するのは誰ですか? 会社には社長、部長、文系一般職、プログラマーがいると思います。 AIによってプログラマーが解雇されたので社長、部長、文系一般職が残りました。 誰がAIに指示してアプリやシステムを作るのですか?
質問日時: 2024/05/24 10:42 質問者: peachapple5738 カテゴリ: その他(プログラミング・Web制作)
解決済
17
0
-
エクセルVBAについて
エクセルファイルをダイヤログを表示させて名前を付けて保存したいのですが、 以下のコ-ド、' A列の最終行の数字を取得 lastRow = ThisWorkbook.Sheets(1).Cells(ThisWorkbook.Sheets(1).Rows.Count, 1).End(xlUp).Valueの部分で型が一致しませんとエラーメッセージが出ます。 エラーメッセージを出さずに保存するにはどこを修正すればよいのでしょうか? どなたかご教示願います。 よろしくお願いいたします。 Sub ファイル保存() Dim folderPath As String Dim fileName As String Dim dateStr As String Dim c3Content As String Dim d3Content As String Dim e3Content As String Dim f3Content As String Dim customName As String Dim lastRow As Long Dim formattedF3Content As String Dim formattedCombinedContent As String ' 保存先フォルダのパスをダイアログで選択 folderPath = "C:\Users\t-tai\OneDrive\デスクトップ\図番" ' A列の最終行の数字を取得 lastRow = ThisWorkbook.Sheets(1).Cells(ThisWorkbook.Sheets(1).Rows.Count, 1).End(xlUp).Value ' 今日の日付を文字列に変換 dateStr = Format(Date, "yyyymmdd") ' 各セルの内容を取得 c3Content = ThisWorkbook.Sheets(1).Range("C3").Value d3Content = ThisWorkbook.Sheets(1).Range("D3").Value e3Content = ThisWorkbook.Sheets(1).Range("E3").Value f3Content = ThisWorkbook.Sheets(1).Range("F3").Value ' F3セルの内容をフォーマット(4桁の内容があるが左から2行目の後に-を挿入) If Len(f3Content) >= 4 Then formattedF3Content = Left(f3Content, 2) & "-" & Mid(f3Content, 3, 2) Else MsgBox "F3セルの内容が正しくありません。4桁の内容を含めてください。" Exit Sub End If ' C3、D3、E3、F3セルの内容をフォーマット formattedCombinedContent = c3Content & "-" & d3Content & "-" & e3Content & "-" & formattedF3Content ' カスタムファイル名を作成 customName = dateStr & "(" & formattedCombinedContent & ")他" & lastRow & "件" ' ファイルの保存先パスを作成 fileName = folderPath & "\" & customName ' ファイルを保存 With Application.fileDialog(msoFileDialogSaveAs) .Title = "保存先フォルダを選択してください" .InitialFileName = fileName & ".xlsm" .AllowMultiSelect = False If .Show <> -1 Then MsgBox "保存先フォルダが選択されませんでした。", vbExclamation Exit Sub End If .Execute MsgBox "ファイルが保存されました。", vbInformation End With End Sub
質問日時: 2024/05/23 01:13 質問者: Wrangleruk カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
C#,vb.netで業務用アプリ開発とかあると思うんですけど、皆さんどのようなアプリを作ってるのです
C#,vb.netで業務用アプリ開発とかあると思うんですけど、皆さんどのようなアプリを作ってるのですか? そもそも色んなコントロールとかあると思うんですが、 テキストボックスとボタンでなんか入力して、検索もできるみたいな感じですか?
質問日時: 2024/05/21 20:52 質問者: だいぬ カテゴリ: C言語・C++・C#
ベストアンサー
1
0
-
is this even a thing?
m1, m2 = -inf, -inf I'm familiar with the notation float ('inf') but not with this one
ベストアンサー
2
0
-
VBA 複数のエクセルから一つのエクセルに貼り付ける
画面に開いている複数のエクセルをコピーして、別のエクセルに一つのデータにしたい場合、どのような式を書けばいいですか?
質問日時: 2024/05/21 19:09 質問者: stop-stop カテゴリ: Visual Basic(VBA)
解決済
1
0
-
htmlソース編集で、各タグを何かアイコン表示一覧クリック一つで自動で生成してくれるソフト?
現在さくらエディター常用ですが、タグ打ちをキーボード入力変換ではなく、よく使う主要なタグ(テキスト)一覧をあらかじめツールバーで常灯表示させておいてクリック一つで自動生成するエディター をどこかで1回試用した記憶があるのですが・・ もういちどそういうの使い勝手試したいのですが。。オススメのありますでしょうか?
ベストアンサー
1
0
-
プロジェクター
天井にプロジェクターを映したいです。 主な用途:スマホAndroidやパソコン画面、Amazonビデオのアニメなど 必須:内蔵スピーカー できれば:有線ではなく無線 映画の臨場感か大迫力はもとめてないですがネット上漫画などはみたいのである程度の画質はほしいです。 https://www.amazon.co.jp/gp/product/B0CCP2KMFG/ref=ox_sc_act_title_3?smid=A17H9B2JBSAXIG&psc=1 こういうのであてはまってますか?注意点あれば教えてほしいです。
解決済
1
0
-
【初心者】XAMPPのapacheの(恐らくaliasの)設定が分かりません.
VirtualHostを使用していて、デスクトップ上のフォルダ内にあるphpファイルをPHP Serverで web表示したいのですが、開けません。 設定したいことは webブラウザでhttp://localhost:3000/**** の****部分が直接ファイル名が来るようにしたいのですが、 現在は以下のようにほぼ絶対パスが来てしまいます。どうすればよいのでしょうか? http://localhost:3000/Users/xxx/Desktop/ProgramTest/sampletest7070/index1.php 設定方法を具体的に教えてほしいです。
ベストアンサー
3
0
-
解決済
1
0
-
【ExcelVBA】値を変更しながら連続でPDFを作成し,それらを結合した状態で出力するコード
office365を使用しています。 1行に1件ずつデータが入っているExcelファイルで,I2セルからI3セルで指定した範囲の行のデータを「様式」シートに順番に反映させながら,連続してPDFを作成するコードを以下のように作成しております。 以下のコードだと,PDFファイルが1件(1行)につき,一つずつ作成されますが,1つのファイルとして結合した状態で出力させるにはどのようなコードにしたら良いか,ご教示いただけないでしょうか。 おそらく,クリップボードのようなところで,1件(1行)のデータを様式シートに反映させたらそれを保存し,順次,次の行のデータを反映させてクリップボード上のデータに追加していくという動きのコードになると思うのではないかと思うのですが,調べてもわかりませんでした。 Sub 連続PDF作成() Dim i As Long Dim j, k As Long Dim l As String Dim myfolder As String Application.ScreenUpdating = False myfolder = ThisWorkbook.Path + "\" j = Worksheets("回答").Range("I2").Value k = Worksheets("回答").Range("I3").Value For i = j To k Worksheets("回答").Range("A5").Value = Worksheets("回答").Cells(i + 9, 1).Value l = Sheets("回答").Range("N6").Value & "・" & Sheets("回答").Range("G6").Value & "・" & Sheets("回答").Range("D6").Value Worksheets("様式").Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=myfolder & "回答\" & l & ".pdf", OpenAfterPublish:=False, IgnorePrintAreas:=False Next i Application.Goto Sheets("回答").Range("A5") Application.ScreenUpdating = True End Sub
質問日時: 2024/05/20 10:43 質問者: qazxcvfr4 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
過剰なオブジェクト指向脳からの脱却について
一昔前にオブジェクト指向という言葉が全盛期だった時代に、新人や入社2,3年程向けのシステムエンジニアに、コードを小さく分割して共有化していくという手法を推奨した教育があったように思います。 けれども、その手法をゴリゴリに使って作っているシステムが更新期を迎えて、修正作業の為に、その開発にタッチをした事の無いエンジニアがプログラムを確認しようとした時に何が待っているかというと… 自作のオレオレ関数の中に、さらに複数の自作関数が入りまくって、変数一つの流れを追うのも難儀する事になり、地獄の炎上が待っています。 しかも、自作関数の機能のコメントは大雑把で、プログラム内で使われた、一つ一つの変数の役割の説明が無い場合が多いのではと思います。 そして、コードの分割と共有化は保守性が良いという理由ですが、これも大きく間違っています。 実際の修正を行う現場では、自作関数だらけの中でコードの共有化をされていた場合には、特定機能の修正をしたくても、他の共有化された部分にも影響が出てしまう為に 非常な厄介な作りとなります。 その為に、同じコードを、2度以上記述してはいけないという、意味不明なカルトじみた信仰は、WindowsOSなども、まだ存在しない、記憶容量が、KBレベルで工夫をしなければならない数十年前の話だと思います。 現在に、後の修正作業をするエンジニアの事を考えた「まともな作り」をするなら、自作関数の中には自作関数を入れない事が大前提だと思います。 そして、自作関数には、プログラム言語の標準関数のように説明書を丁寧に作成します事と、プログラム内で使った変数は、フラグ用も含めて全て可能なかぎり使用方法を記述した方が良いように思います。 おそらく、PMやPLが、最初に内部設計を作った後に、開発中に発生する、自作関数や変数の説明を定期的に報告してもらい、それを設計書に逐次追加していくような形式が良いように思うのですが・・・ 現在のエンジニアの開発現場で、こういう考え方が浸透して、過剰なオブジェクト指向によるコードの分散と共有化という大きな間違いに気が付いてくれるにはどうすれば良いのでしょうか・・・?
質問日時: 2024/05/19 23:56 質問者: haous カテゴリ: その他(プログラミング・Web制作)
解決済
8
1
-
WindowsでのPythonの挙動について
(venv) Q:\python example3.py だと問題なく動作します。 しかし、以下だとエラーが出る。なぜでしょうか? どちらも仮想環境の中で実行しているつもりだったのですがそうはなった無いのでしょうか? ただ、他のプログラムだとこれで動くものもありいまいち良く分からない感じです。 (venv) Q:\>example3.py Traceback (most recent call last): 中略 import clip ModuleNotFoundError: No module named 'clip'
解決済
2
0
-
C#とC++とJavaが学べる書籍について。
これらの言語が学べる書籍を教えて頂けると幸いです。
質問日時: 2024/05/19 13:26 質問者: メラゾーム カテゴリ: その他(プログラミング・Web制作)
解決済
1
0
-
16x16のスプライトフォント
16x16のスプライトフォントが必要なのですが、見つからなくて困っています。ひらがなとカタカナだけでよいのですが、自分で作るしかないのでしょうか?用途はConstruct3で作ったゲームです。
質問日時: 2024/05/19 09:50 質問者: asdhrs カテゴリ: その他(プログラミング・Web制作)
解決済
1
0
-
本格的なWebアプリを公開する時ってどのようにしたらいいのですか?会社を立ち上げて色んな人に協力して
本格的なWebアプリを公開する時ってどのようにしたらいいのですか?会社を立ち上げて色んな人に協力してもらった方がいいのでしょうか? サーバーの選定 ドメインの取得/保守 ネットワークセキュリティの導入 決済システム、 収益システムの選定 マーケティングの導入 などをどうしたらいいのか... 人雇った方がいいんでしょうか?そうなると事業計画書とかいりますよね?お金借りるのに。 でも、単にWebアプリで収益の見積もりとか出せるんでしょうか
質問日時: 2024/05/18 23:39 質問者: だいぬ カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
3
0
-
へんな現象
3つ以上存在する要素がないか判定します def isPossibleToSplit(self, nums: List[int]) -> bool: c = defaultdict(int) for i in nums: c[i] += 1 if c[i] > 2: return False return True としました。でも、足して3になたらFalseよりも 2のものにたそうとするときにFalseのほうが早いと思って def isPossibleToSplit(self, nums: List[int]) -> bool: c = defaultdict(int) for i in nums: if c[i] == 2: return False c[i] += 1 return True としました。そしたらに個目のほうが遅くなりました。なんでですか?? ifをみる階数も同じだとおもいませんか?
質問日時: 2024/05/18 15:49 質問者: ゆゆにゃ。 カテゴリ: C言語・C++・C#
ベストアンサー
3
0
-
プログラミング初心者です。 Windowsで作ったWebサイトをメールでMacBookに送ったところ
プログラミング初心者です。 Windowsで作ったWebサイトをメールでMacBookに送ったところ、画像も全て表示されず、このようになってしまいます。調べても原因がわかりません。 表示されるにはどうしたらいいでしょうか?
質問日時: 2024/05/18 14:17 質問者: べいびーべるーが カテゴリ: その他(プログラミング・Web制作)
解決済
2
0
-
プログラミング未経験者(殆ど未経験者のレベル)ですが Android Studioを使って、自分用の
プログラミング未経験者(殆ど未経験者のレベル)ですが Android Studioを使って、自分用の簡易なX投稿用アプリを開発したいと思っています。是非とも下記について情報を教えて下さい。 ①最新のAndroid Studio解説本(具体的なメニュー項目が何処に有るか等画面の説明も図解で書いてあるもの) で言語はKotlin版です。 ②Kotlin解説本(プログラミング入門者向け) ③Pc等のハードウェア環境を除いて、その他必要な知識を身につける為の本とかソフトウェアが有ればお教え下さい。因みに、私は、ChatGPT3.5にコードを書いてもらい、それをアプリ化したいと考えています。何卒、ご教示をお願い致します。
質問日時: 2024/05/18 12:57 質問者: KY_gg カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
9
0
-
めちゃきれい
//アレイの最大ちと最小ちのGCDを計算 mi, mx = float('inf'), float('-inf') for i in nums: if i < mi: mi = i if i > mx: mx = i while mi > 0: mx, mi = mi, mx % mi return mx これより時間計算量はきれいになりますか?
ベストアンサー
2
0
-
mod でうまく
一行(値の計算をひとつ)で あらわせますか?? 時計を思い出してもらうとわかりやすいとおもいますけど、 例えば 2と5なら距離は3 1と3なら2 1と11 なら2 のようなけいさんは min(abs(i-j), abs(12-abs(i-j)) のようにできますけど、私は環状リストのようにmod がさいしょにおもいだして それで結局それはつかえないようでした。
ベストアンサー
5
1
【プログラミング・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 レジストリの値の読み方につい...
おすすめ情報