回答数
気になる
-
Excelのマクロについて教えてください。
作業ブックに連続して実行できるマクロを設定しております。 Sub 貼り付け総合() Call 提出シートを開く Call 提出シートコピー範囲 Call 貼り付け End Sub このマクロを実行すると画像のエラーが表示されて、 マクロ:「貼り付け」のコードの 「Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats」が黄色く表示されて、上手くマクロが実行できません。 例えば、「Call 提出シートを開く」・「Call 提出シートコピー範囲」のマクロをやめて 手動でコピー元のブックを開き、コピー範囲をマウスで設定して「Ctrl+C」を行い 作業ブック側の「Call 貼り付け」を実行するとコピペが上手く行きます。 問題の解決方法を教えてください。 現状のマクロ Sub 提出シートを開く() On Error Resume Next Dim folderPath As String Dim fileName As String folderPath = ThisWorkbook.Path & "\" fileName = Dir(folderPath & "*(提出用).xlsx") Do While fileName <> "" Workbooks.Open (folderPath & fileName) fileName = Dir() Loop End Sub Call 提出シートコピー範囲 Dim Wb1, Wb2 Set Wb1 = Workbooks(1) 'このブック Set Wb2 = Workbooks(2) '別ブック 'セルの値を取得する Wb2.Worksheets("提出シート").Range("B1:H47").Copy End Sub Sub 貼り付け() Application.DisplayAlerts = False Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Application.DisplayAlerts = True Sheets("受付").Range("H60").Copy Sheets("受付").Range("F24").PasteSpecial xlPasteValues Sheets("受付").Range("Q10").Copy Sheets("受付").Range("F12").PasteSpecial xlPasteValues End Sub 以上となります。よろしくお願いいたします。
質問日時: 2024/06/14 16:38 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
1
-
webデザインの勉強で、HTML/CSSから勉強するかPhotoshop/Illustratorかは
webデザインの勉強で、HTML/CSSから勉強するかPhotoshop/Illustratorかは勉強か、どちらを最初にするのがおすすめですか?
解決済
4
1
-
エクセルのマクロについて教えてください。
下記のマクロは別ブックの指定セル値を作業ブックに貼り付け出来るマクロとなっております。 この貼り付けを画像のように「値の貼り付け」「値と数値の書式(A)で 貼り付けが出来る方法を教えてください。 現状のマクロ Sub 貼り付け() Application.DisplayAlerts = False Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Application.DisplayAlerts = True End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2024/06/14 12:16 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
c++でテンプレートのコードでわからないことがあります
#include <iostream> template <typename T> T minimum(const T& lhs, const T& rhs) { return lhs < rhs ? lhs : rhs; } int main() { int a=2; int b=3; int i = minimum<int>(a, b); std::cout << i << std::endl; return 0; } において const T& lhs のところで Tにconstと&が修飾されていますがこれはどういう効果があるのでしょうか?
質問日時: 2024/06/14 11:04 質問者: reiman カテゴリ: C言語・C++・C#
ベストアンサー
2
0
-
バッチファイルが保存されている場所のファイル名の変更方法
いつもお世話になります。 Windows10で、バッチファイルが保存されている場所のファイル名をバッチファイルで変更したいのですが、うまくできません。 どのように書けばできますか? フォルダ名の先頭へ「[A_」を追加したいです。 例えば、 D:\ユーザー\ABC\デスクトップ\JAPAN のJAPANへ当該バッチファイルを置いてあれば、 D:\ユーザー\ABC\デスクトップ\A_JAPAN に変更したいです。 とりあえず、現状このような感じで記載していますが、当然ながら動作しません。 ren %~dp0 A_* お手数をおかけしますが、よろしくお願いします。
質問日時: 2024/06/14 09:55 質問者: hinoki24 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
1
0
-
Excelのマクロについて教えてください。
コピー先のマクロ設定作業ブックを「Set Wb1 = Workbooks(1) 'このブック」としており コピー元のブックを「Set Wb2 = Workbooks(2) '別ブック」としております。 現状では、 コピー元のシート名「提出シート」のセル範囲「B1:H47」を手動で B1にセルからH47にセルを合わせて「Ctrl+C]を押してコピー範囲を指定しております。 この作業を コピー先の作業ブック「Set Wb1 = Workbooks(1) 'このブック」にマクロを設定できる方法を教えてください。 一番最初に「Set Wb1 = Workbooks(1) 'このブック」を開き、 次に 「「Set Wb2 = Workbooks(2) '別ブック」 を開いております。 新設にコード共、教えてください。 よろしくお願いいたします。
質問日時: 2024/06/13 15:48 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
Excelのマクロについて教えてください。
下記のマクロを実行すると 他のブックの指定範囲を作業ブックの指定範囲にコピペできます。 このマクロだとコピー元のセル値に設定している数式を文字としてコピーしてしまいます、 このコードを変更してコピペした場合に、コピー元のセル値に表示した文字及び数式をコピー先にコピペ出来る方法を教えてください。 現状のマクロ Sub 提出シート貼り付け() Dim Wb1, Wb2 Set Wb1 = Workbooks(1) 'このブック Set Wb2 = Workbooks(2) '別ブック 'セルの値を取得する Wb2.Worksheets("提出シート").Range("B1:H37").Copy Wb1.Worksheets("受付").Range("B1:H37") End Sub 以上です。 よろしくお願いいたします。
質問日時: 2024/06/13 13:39 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
Excelのマクロについて教えてください。
下記のマクロを実行するとマクロを設定しているブックと同じフォルダ内にある ファイルを開く事が出来ます。 ファイル名「前青紙.xlsx」この部分をワイルドカードで 「*(提出用).xlsx」に変更する方法を教えてください。 現状のマクロ Sub ブックを開く2() On Error Resume Next Workbooks.Open Filename:=ThisWorkbook.Path & "\前青紙.xlsx" End Sub 以上です。よろしくお願いいたします。
質問日時: 2024/06/13 10:35 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
Excelのマクロについて教えてください。
下記のマクロを実行すると指定のファイルのデーターを 作業ブックの指定シートに貼り付けが出来るようにしております。 作業ブックでこのマクロを実行するとかなりの時間がかかります(20秒程度) この時間を短縮できる方法があれば教えてください。 現状のマクロ Sub データコピペ() Dim expressionRng, destinationRng Dim n 'コピー元のファイルを開く Workbooks.Open ActiveWorkbook.Path & "\" & "FDデータ.xlsx" Set expressionRng = Workbooks("FDデータ.xlsx").Sheets("Sheet1").Range("$A$1:$OZ$12") Set destinationRng = ThisWorkbook.Sheets("FDデータ").Range("$A$1:$B$2") For n = 1 To expressionRng.Rows.Count destinationRng(n, 1).RowHeight = expressionRng(n, 1).RowHeight Next For n = 1 To expressionRng.Columns.Count destinationRng(1, n).ColumnWidth = expressionRng(1, n).ColumnWidth Next expressionRng.Copy destinationRng Workbooks("FDデータ.xlsx").Close Kill ActiveWorkbook.Path & "\" & "FDデータ.xlsx" End Sub よろしくお願いいたします。
質問日時: 2024/06/13 08:57 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
5
0
-
久しぶりのプログラミング
おはようございます。 今日もB型事業所に通う私です。 昨日からエクセルVBAを始めました。 私にとっては久しぶりのプログラミングです。 大学行って、専門学校でプログラマを目指していたので、比較的やりやすいです。 私は当時、C言語を学んでいたのですがそれに比べるとVBAは楽と言うか 始めたばかりなのでわかりませんがやりやすいです。 今、Cをやるとするとコンパイラがないし、かなり忘れています。 VBAはエクセルなので特別なソフトがいらないのでいいです。 普段、エクセルは実用的に表などを作っているので、VBAプログラミングは趣味のような ものです。 プログラミングって楽しいですよね!! やっている方どうですか?
質問日時: 2024/06/13 06:56 質問者: ともこん カテゴリ: Visual Basic(VBA)
ベストアンサー
4
1
-
エクセルVBA
つい先ほど、久しぶりに本を見つけました。 エクセルVBAの本です。 古い本でしたがサンプルファイルはダウンロードしてありました。 私は、プログラミングは正直、C言語とHTMLがある程度出来るのでなんとなくコツはつかみました。 エクセルを最初からVBEで入力し、デバックして実行し、マクロすれば良いのですよね? 詳しい方、教えてください。
質問日時: 2024/06/12 19:38 質問者: ともこん カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
プログラミングサイトについて。
コードプレップというプログラミングサイトは、何の言語が学べるのでしょうか?全種類挙げて頂けると幸いです。
質問日時: 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
【プログラミング・Web制作】 に関する回答募集中の質問
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
最新のコラム/記事
-
プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた!
プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて!goo」にも、「プログラミングを学べる子供...
-
マッチングアプリで出会ったカップルは成婚率が高い!?結婚カウンセラーに聞いてみた
パートナーとの出会いの場として、もはや主流となったネット婚活やマッチングアプリ。中でも手軽に登録できるマッチングアプリは、10代から50代と幅広い年代が利用している。一方で、“相手の目的が投資関係の詐欺や...
-
メダロット:第250話「Vol.250※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
メダロット:第249話「Vol.249※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAコードのインデント表示
-
プログラムの実行時に'<'でリダイレ...
-
文系のSE志望です。プログラミング...
-
onedrive にexcelファイルをアップ...
-
python3について。
-
python3について。
-
あせんうぶり言語
-
session,requestはjspで未定義でも...
-
私は
-
IF文、条件分岐の整理方法
-
htmlの文字が縦書きになる
-
太鼓
-
どち
-
これて逆じゃないですか?
-
バッチファイル 特定ウインドウの最...
-
vba クリップボードクリアについて...
-
XMLを作成してもタグしか表示されない
-
【ExcelVBA】値を変更しながら連続...
-
テーブルの行を折りたたみたいので...
-
PHPについて。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
htmlの文字が縦書きになる
-
エクセルで集計したい。
-
1、Rstudioで回帰直線を求めるため...
-
プログラム言語について c言語もコ...
-
vba クリップボードクリアについて...
-
C#でログファイルにファイルパスが...
-
Python、プログラミングについて質...
-
バッチファイルで以下のようなもの...
-
onedrive にexcelファイルをアップ...
-
VBAなくなるの?
-
テキストファイルの1行目のみを削除...
-
XMLを作成してもタグしか表示されない
-
プログラミングの課題がわからない...
-
バッチファイル 特定ウインドウの最...
-
エクセルに張り付けた写真のファイ...
-
配列にnullを代入すると、nullが文...
-
だれがとけるの?
-
0 == False はいいけど
-
VBAでCOPYを繰り返すと、処理が途中...
-
CPUが16bitでも32bitOSでコンパイル...
おすすめ情報