次へ  ]
166867件中 1~20件目
  • PHPmeiler  PHP 入力フォーム

    PHPmeiler  PHP 入力フォーム 入力フォームのメールの送受信のコード書こうと思っているのですが、その際、受信率の高い、PHPmeilerを使ったお問い合わせのメールフォームを作りたいのですが、 参考サイトURLhttps://bonsaimasa.hatenablog.com/entry/2019/03/27/094608 この質問に付属している画像は参考サイトのコードの一部を赤線を引いた画像です。 付属の写真はOffice 365を使ってメールの送受信を行うプログラム(php)の一部の画像ですが、その画像の赤い線の$smtp_user = "dummy@bonsai.com";はアドレスでしょうか?他人から入力フォームから送られてきた情報を自分(私)のアドレスに送られるように 自分のアドレスを記載するのでしょうか? また、画像の赤い線もう一つ下にある$from_address = "dummy@bonsai.com";というのは、他人から入力フォームから送られてきた情報を自分(私)のアドレスに送られるように 自分のアドレスを記載するのでしょうか? 回答よろしくお願いいたします

    2020/08/14 18:34
  • flaskのサンプル内の「!r」について

    flaskのサンプルとして以下のWebを参考にいろいろと試行錯誤しています。 https://methane.github.io/flask-handson/flaskr.html いくつかのプログラムで構成されていますが、flaskr/models.pyの中の以下の記述の「!r」の意味・役割がわかりません。 def __repr__(self): return "<Entry id={} title={!r}>".format(self.id, self.title) インターネットを検索しても特に見つからず、やや困っています。 もし何かご存じの方がいらっしゃればアドバイスお願いします。 以上

    2020/08/14 16:55
  • htmlのテンプレートの使いまわし

    この質問掲示板のようなサイトで、タイトル、本文を書いたらテキストだけ予め用意されたテンプレートのhtmlのファイルに写すような技術って何というのですか? おそらくphpを使うのだろうと思ったのでカテゴリーをphpにしています。

    2020/08/14 14:29
  • VBA

    選択したセルから複数画像を貼付け、画像の右セルに画像名を記入したいのですが、 画像名の記入方法がわからず、うまく動作できません。 ご教授の程、宜しくお願い致します。 例)A1セルを選択マクロ実行、画像3枚を貼付けたい:A1~A3セルに画像貼付け、B1~B3セルに画像名記入 ※※※※※※※※※※マクロ※※※※※※※※※※ Sub 画像貼付け() Dim i As Long, j As Long, k As Long Dim FileName As Variant Dim dblscal As Double Dim sp As Shape FileName = Application.GetOpenFilename( _ filefilter:="画像ファイル,*.jpeg;*.jpg;*.gif;*.JPG", _ MultiSelect:=True) Dim inp As Range On Error Resume Next Set inp = Application.InputBox( _ prompt:="マウスで開始セルを選択してください", _ Title:="開始セルを選択", _ Default:="マウスで開始セルを選択する", _ Type:=8) ''←メッセージボックスで開始セルを選択させる If Err.Number = 0 Then MsgBox mayrange.Address Else MsgBox "キャンセルしました。" End If j = inp.Row ''←選択した開始セルの行 k = inp.Column ''←選択した開始セルの列 For i = LBound(FileName) To UBound(FileName) Cells(j, k).Select With ActiveSheet.Shapes.AddPicture( _ FileName:=FileName(i), _ linktofile:=False, _ savewithdocument:=True, _ Left:=Selection.Left, _ Top:=Selection.Top, _ Width:=0, _ Height:=0) .ScaleHeight 1, msoTrue .ScaleWidth 1, msoTrue If Cells(j, k).Width / .Width < Cells(j, k).Height / .Height Then dblscal = WorksheetFunction.RoundDown(Cells(j, k).Width / .Width, 2) Else dblscal = WorksheetFunction.RoundDown(Cells(j, k).Height / .Height, 2) End If .Width = .Width * dblscal * 0.97 .Height = .Height * dblscal * 0.97 .Left = .Left + (Cells(j, k).Width - .Width) / 2 .Top = .Top + (Cells(j, k).Height - .Height) / 2 End With k = k + 0 j = j + 1 Next i End Sub

    2020/08/14 12:08
  • 電卓アプリ

    画像のような7セグメントLEDディスプレイで"6"のA、"9"のD、"7"のFが全て消灯するように背景が黒くて、赤く表示するデジタル数字の計算機アプリってないんですか?

    2020/08/13 22:18
  • VBA のコードについて

    すみません、以前にも同じようなご質問をさせて頂いたのですが、どうしても以下のマクロがうまく機能しません。 新しいブックは作成されるのですが、End If以降の検索結果が反映(コビー)されません。 コードに問題があるかアドバイス頂けますと幸いです。 どうぞ宜しくお願いいたします。 Sub sort() Dim i As Long Dim grp As String Dim newBookName As String Dim newBookPath As String Dim newBook As Workbook For i = 2 To 4 LOB = Workbooks("test").Worksheets("grpリスト").Cells(i, 2) newBookName = Workbooks("test").Worksheets("grpリスト").Cells(i, 2) & ".xlsx" newBookPath = ThisWorkbook.Path & "\" & newBookName '指定したパスにファイルが作成済でないかを確認。 If Dir(newBookPath) = "" Then '新しいファイルを作成 Set newBook = Workbooks.Add '新しいファイルをVBAを実行したファイルと同じフォルダ保存 newBook.SaveAs newBookPath Else '既に同名のファイルが存在する場合はメッセージを表示 MsgBox "既に" & newBookName & "というファイルは存在します。" End If With Workbooks("test").Worksheets("マスタ0701").AutoFilterMode = False With .Range(Cells(3, "B"), Cells(Rows.Count, "CK").End(xlUp)) .AutoFilter Field:=13, Criteria1:=grp '.CurrentRegion.Select Range(Cells(3, "B"), Cells(Rows.Count, "CK").End(xlUp)).SpecialCells(xlVisible).copy Workbooks(grp).Worksheets("Sheet1").Range("A1") '.AutoFilter End With End With Next i End Sub

    2020/08/13 13:23
  • 全画面表示の時にアドレスバーの部分を消す方法

    全画面表示の時に表示されるアドレスバーの部分を消す方法をご教授下さい。 自分のホームページ内で、クリックしたら別窓で全画面表示で立ち上がるようにする部分を作ったんですけど、私のやり方ではアドレスバーの部分が表示されてしまいます。 このアドレスバー(画像の赤い部分です。アドレスの横にあるトグルボタン?なども含めすべて)を表示させない方法はないでしょうか。 ↓以下がhtmlに入れているJavaScriptのタグになります。 【head部分】 <script language="JavaScript"> <!-- function fullopen(strURL) { win=window.open(strURL, "","fullscreen=1"); win.window.moveTo(0,0); win.window.resizeTo(screen.availWidth,screen.availHeight); } //--> </script> 【別窓を立ち上げ、全画面表示で開かせたいURL部分】 <a href="javascript:void(0);" onclick="fullopen('~.html');"></a> これのどの部分をどのように直せばいいでしょうか。 当方JavaScriptほぼ素人のため、できるだけわかりやすく教えて頂けるととても助かります。 よろしくお願いします。

    2020/08/12 19:51
  • sqlite結果の非表示

    sqliteで質問があります。humanテーブルにid,name,sex,age,prefecture,country,image, のカラムがあるのですが、id,name ,sexはデータベース&webページ上ではいるので残したいのですが 表示をしたくありません。 どうすればユーザーに見えないようにできますか? 以下、htmlコードです <?php // 変数の初期化 $db = null; $sql = null; $res = null; $row = null; $db = new SQLite3("test.db"); // データの取得 $sql = 'SELECT * FROM human where country="japan"'; $res = $db->query($sql); ?> <!DOCTYPE html> <html> <head> <meta charset="utf-8"> <meta name="viewport" content="width=320, height=480, initial-scale=1.0, minimum-scale=1.0, maximum-scale=2.0, user-scalable=yes" /> <title>SQLite テスト</title> </head> <body> <h1>php の練習</h1> <div class="human"> <ul><?php while( $row = $res->fetchArray() ) { echo '<a href="https://yahoo.co.jp" target=_brank>'. '<li>' . $row[0] . '<span>' , $row[1].'<span>', $row[2].'<span>',$row[3].'<span>', $row[4]. '<span>', $row[5].'<span>' ,' $row[6]. '</li>'. '</a>' ; } ?></ul> </div> </body> </html> 以下、humanテーブルです BEGIN TRANSACTION; CREATE TABLE IF NOT EXISTS "human" ( "id" INTEGER NOT NULL, "name" TEXT NOT NULL, "sex" TEXT NOT NULL, "age" INTEGER NOT NULL, "prefecture" TEXT, "country" TEXT NOT NULL, "image" TEXT, PRIMARY KEY("id") ); INSERT INTO "human" VALUES (1,'中村静香','男',48,'千葉','japan','image/t1.jpg'); INSERT INTO "human" VALUES (2,'中村ゆり','女',45,'埼玉','japan','image/t2.jpg'); INSERT INTO "human" VALUES (3,'本田翼','女',22,'','japan','image/t3.jpg '); INSERT INTO "human" VALUES (4,'本田望結','男',16,'東京','japan',NULL); INSERT INTO "human" VALUES (5,'綾瀬はるか','女',34,'東京','japan',NULL); INSERT INTO "human" VALUES (6,'中村アン','男',38,'','usa',NULL); INSERT INTO "human" VALUES (7,'広瀬アリス','女',26,'東京','japan',NULL); INSERT INTO "human" VALUES (8,'有村架純','男',31,NULL,'usa',NULL); INSERT INTO "human" VALUES (9,'長澤まさみ','女',29,NULL,'uk',NULL); INSERT INTO "human" VALUES (10,'有村藍里','男',18,'埼玉','japan',NULL); COMMIT;

    2020/08/12 16:43
  • マクロ実行後に操作を元に戻したい

    自作の時間割変更プログラムを使っています。 次のマクロを何度か実行した後に一つずつ元に戻したいのですが。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range Dim m, n, s On Error Resume Next If Selection.Count <> 2 Then Exit Sub m = ActiveCell.Value n = ActiveCell.Interior.ColorIndex For Each Rng In Selection If Rng.Address <> ActiveCell.Address Then ActiveCell.Value = Rng.Value ActiveCell.Interior.ColorIndex = Rng.Interior.ColorIndex Rng.Value = m Rng.Interior.ColorIndex = n End If Next Rng End Sub 時間割のコマを移動した後に間違いが見つかり、間違いの時点まで元に戻して訂正したいのですが、Ctrl+zがきかず困っています。 Excel 365、windows 10を使用しています。どうにかなりませんか?

    2020/08/12 05:28
  • VBAのコードについて

    VBA初心者でございます。 以下のコードの後半(End If以降)でエラーがでてしまいます。 非常に乱暴な質問で大変恐れ入りますが、コードで気になる点などございますでしょうか? もしございましたら、ご教示頂けますと幸いです。 どうぞ宜しくお願いいたします。 Sub 絞り込み() Dim i As Long Dim grp As String Dim newBookName As String Dim newBookPath As String Dim newBook As Workbook For i = 2 To 4 grp = Workbooks("test_master").Worksheets("grpリスト").Cells(i, 2) newBookName = Workbooks("test_master").Worksheets("grpリスト").Cells(i, 2) & ".xlsx" newBookPath = ThisWorkbook.Path & "\" & newBookName '指定したパスにファイルが作成済でないかを確認。 If Dir(newBookPath) = "" Then '新しいファイルを作成 Set newBook = Workbooks.Add '新しいファイルをVBAを実行したファイルと同じフォルダ保存 newBook.SaveAs newBookPath Else '既に同名のファイルが存在する場合はメッセージを表示 MsgBox "既に" & newBookName & "というファイルは存在します。" End If Workbooks("test_master").Worksheets("マスタ0701").AutoFilterMode = False With Workbooks("test_master").Worksheets("マスタ0701").Range(Cells(3, "B"), Cells(Rows.Count, "CK").End(xlUp)) .AutoFilter Field:=13, Criteria1:=grp '.CurrentRegion.Select Range(Cells(3, "B"), Cells(Rows.Count, "CK").End(xlUp)).SpecialCells(xlVisible).copy Workbooks(grp).Worksheets("Sheet1").Range("A1") '.AutoFilter End With Next i End Sub

    2020/08/11 22:01
  • VBA 変数について

    VBA初心者でございます。 VBAでgrpという変数を設定し、それをキーにしてオートフィルタをしたいです。 以下のコードではエラーがでてしまうのは、なぜでしょうか? どうぞ宜しくお願いいたします。 Sub 絞り込み2() Dim grp Set grp = Worksheets("リスト").Cells(3, 2) Worksheets("マスタ0701").AutoFilterMode = False With Worksheets("マスタ0701").Range(Cells(3, "B"), Cells(Rows.Count, "CK").End(xlUp)) .AutoFilter Field:=13, Criteria1:=grp '.CurrentRegion.Select Range(Cells(3, "B"), Cells(Rows.Count, "CK").End(xlUp)).SpecialCells(xlVisible).Copy Worksheets("検索結果").Range("A1") '.AutoFilter End With End Sub

    2020/08/11 17:56
  • 実行時エラー1004がでてしまう(VBA)

    実行時エラー1004「RangeクラスのAutoFilterメソッドが失敗しました」が出てしまいます。 (1)とあるシートのL列に"判定"を作り、そこに、D列の名称の中に、特、SO、FRが入っていないものには〇をL列に入力し、〇が付くものを抽出するというものを作ったのですがエラーが出てしまいます。(この内容は@の範囲になります)解決策を教えていただけないでしょうか? (2)またこのVBAを行った際に、本ファイルの処理リストのデータと評価リストのデータが消えてしまいます。(データがうまく表示されていない状態で行間をダブルクリックすれば全て出てくる)解決策を教えていただけないでしょうか? ちなみに自分はVBA初心者です。 Sub 抽出() Dim フォルダ, ファイル名, 基本ファイル名 Dim i, j As String i = ActiveWorkbook.Name j = ActiveSheet.Name Application.DisplayAlerts = False '警告ダイアログボックスを表示しない 基本ファイル名 = Sheets("データリスト").Range("B8").Value '基本ファイル名(欲しいデータがあるBook)を定義 Workbooks.Open 基本ファイル名 '基本ファイル名(欲しいデータがあるBook)を開く Worksheets(1).Range("A1:O400").Copy '基本ファイル名内にある履歴データシートの内容をコピー Workbooks(i).Worksheets("処理リスト").Range("A1:O400").PasteSpecial '基本ファイル名のコピーを本ファイルの処理リストに貼り付ける Workbooks(基本ファイル名).Close SaveChanges:=False '基本ファイル名を閉じる Sheets(j).Select With Worksheets("処理リスト") .Range("A1").AutoFilter _ Field:=10, _ Criteria1:="003", _ Operator:=xlOr, _ Criteria2:="004" End With '本ファイルの処理リストのA列からの10列目の"003"もしくは"004" を抽出 'Dim k As Long …@ Range("L1") = "判定" For k = 2 To Cells(Rows.Count, 1).End(xlUp).Row With Cells(k, 4).Interior If .Cells(k, 4) <> "" * 特 * "" And .Cells(k, 4) <> "" * SO * "" And .Cells(k, 4) <> "" * FR * "" Then Cells(k, 12) = "〇" End If End With Next k Range("A1").AutoFilter 12, "〇" →ここでエラーが出る …@ Dim データ範囲 As Range Dim 抽出列 As Variant Dim l As Long Set データ範囲 = Worksheets("処理リスト").Range("A1").CurrentRegion 抽出列 = Array(3, 4, 5, 10) For l = 0 To UBound(抽出列) データ範囲.Columns(抽出列(l)).Copy Sheets("評価リスト").Range("D7").Offset(0, l) Next '本ファイルの処理リストの3,4,5,10列を本ファイルの評価リストのD7に貼り付け Application.DisplayAlerts = True '警告ダイアログボックスを表示するに戻す MsgBox ("履歴データを取り込みました") End Sub

    2020/08/11 15:25
  • phpの画像表示

    sqliteで質問があります。 sqliteのdbファイルにimageというカラムを作りパスを入力してサーバーにアップしました。例:hoge/hoge.jpg そこで質問です。 html(php)側には何と書けば画像は表示されますか? html側は $row という変数に格納しwhileでカラム分だけループさせています。 画像は &row[6] に当たります。 やってみたこと→'<img src="$row[6]">' こうしましたが、表示されませんでした。

    2020/08/11 08:28
  • チャットアプリ「オルカ」は、何度も凍結されると永久

    チャットアプリ「オルカ」は、何度も凍結されると永久凍結になりますか?その場合、機種変更すればまた使えますよね?

    2020/08/11 05:20
  • ワードプレス

    本ドメインの記事をサブドメインにエクスポートしました。そうすると両方のドメインに同じ記事が2つ存在していることになると思うのですが、本ドメインのある記事のPV数は日々変化しているのですが、サブの方の同じ記事はずっと0のままです。本ドメインの記事を消去すればサブの方のPVも変化するのでしょうか?わかる方教えてください。

    2020/08/10 22:59
  • VBAのオートフィルタのタイトル行

    3行目をタイトル行として、3行目以降(で13列にABCという文字列が入っている行)をセレクトすることは可能でしょうか? 以下のようなコードを書くと、1行目にオートフィルタがかかり、1行目もセレクトされてしまいます(13列にABCという文字列が入っている行は正しく選択されています)。 なお、A列はブランク、B1、B2には検索とは無関係の文字列が入っております。 どうぞ宜しくお願いいたします。 Sub 絞り込み() With Worksheets("マスタ0701").Range("B3") .AutoFilter Field:=13, Criteria1:="ABC" .CurrentRegion.Select '.AutoFilter End With End Sub

    2020/08/10 11:36
  • SQLiteをhtmlでの表示

    sqliteで <?php // 変数の初期化 $db = null; $sql = null; $res = null; $row = null; $db = new SQLite3("test.db"); // データの取得 $sql = 'SELECT * FROM human where sex="男"'; $res = $db->query($sql); ?> <!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>SQLite テスト</title> </head> <body> <?php while( $row = $res->fetchArray() ) { echo '<p>' . $row[0] . '</p>'; } ?> </body> </html> こちらのphpを実行したのですがidだけが表示されてしまいます。 idに対応するテーブルの行はあっています。 対応するname,age等の表示もさせたいのですがどうすればいいですか? いかtest.dbのhumanテーブルです。 BEGIN TRANSACTION; CREATE TABLE IF NOT EXISTS "human" ( "id" INTEGER NOT NULL, "name" TEXT NOT NULL, "sex" TEXT NOT NULL, "age" INTEGER NOT NULL, "prefecture" TEXT, "country" TEXT NOT NULL, PRIMARY KEY("id") ); INSERT INTO "human" VALUES (1,'中村静香','男',48,'千葉','japan'); INSERT INTO "human" VALUES (2,'中村ゆり','女',45,'埼玉','japan'); INSERT INTO "human" VALUES (3,'本田翼','女',22,'','japan'); INSERT INTO "human" VALUES (4,'本田望結','男',16,'東京','japan'); INSERT INTO "human" VALUES (5,'綾瀬はるか','女',34,'東京','japan'); INSERT INTO "human" VALUES (6,'中村アン','男',38,'','usa'); INSERT INTO "human" VALUES (7,'広瀬アリス','女',26,'東京','japan'); INSERT INTO "human" VALUES (8,'有村架純','男',31,NULL,'usa'); INSERT INTO "human" VALUES (9,'長澤まさみ','女',29,NULL,'uk'); INSERT INTO "human" VALUES (10,'有村藍里','男',18,'埼玉','japan'); COMMIT;

    2020/08/10 09:33
  • pythonでExcelのシート名が取得できない件

    pythonの学習を始めたものです。 さっそく行きづまっていて解決できなかったので質問いたします。 windowsのコマンドプロンプトを利用し、 https://tonari-it.com/python-openpyxl-beginner/ の import openpyxl wb=openpyxl.load_workbook('example.xlsx') wb.get_sheet_names() excample.xlsx内のシート名を取得するプログラムを実行したのですが、 example.py:3: DeprecationWarning: Call to deprecated function get_sheet_names (Use wb.sheetnames). wb.get_sheet_names() 上記のエラー値が表示されました。 さらにくわしくエラーを調べていき import openpyxl wb=openpyxl.load_workbook('example.xlsx') wb.sheetnames のように修正したところ、エラーは消えたのですが、 結果が表示されるどころか何も表示されずプログラムが終了してしまうのですが、どういった原因が考えられますでしょうか?

    2020/08/09 18:52
  • sqliteについて質問があります。

    sqliteについて質問があります。 db browser for sqlite でテーブルを作成したのですが、これをhtmlやphpなどを使いweb上で利用したいです。 例えば、ユーザーが”男”を選択したら”男”のデータ一覧が表示されるようにしたいのですがどうプログラムすればいいですか? 作れたファイルはtest.dbです。 (test.dbは開けませんでしたので以下、test.dbのhumanテーブルです。) BEGIN TRANSACTION; CREATE TABLE IF NOT EXISTS "human" ( "id"INTEGER NOT NULL, "name"TEXT NOT NULL, "sex"TEXT NOT NULL, "age"INTEGER NOT NULL, "prefecture"TEXT, "country"TEXT NOT NULL, PRIMARY KEY("id") ); INSERT INTO "human" VALUES (1,'中村静香','男',48,'千葉','japan'); INSERT INTO "human" VALUES (2,'中村ゆり','女',45,'埼玉','japan'); INSERT INTO "human" VALUES (3,'本田翼','女',22,'','japan'); INSERT INTO "human" VALUES (4,'本田望結','男',16,'東京','japan'); INSERT INTO "human" VALUES (5,'綾瀬はるか','女',34,'東京','japan'); INSERT INTO "human" VALUES (6,'中村アン','男',38,'','usa'); INSERT INTO "human" VALUES (7,'広瀬アリス','女',26,'東京','japan'); INSERT INTO "human" VALUES (8,'有村架純','男',31,NULL,'usa'); INSERT INTO "human" VALUES (9,'長澤まさみ','女',29,NULL,'uk'); INSERT INTO "human" VALUES (10,'有村藍里','男',18,'埼玉','japan'); COMMIT;

    2020/08/09 18:11
  • VBA のオートフィルタについて

    ExcelVBA初心者でございます。 2点質問がございます。 (1)エクセルVBAのオートフィルタの機能を使い、"マスタ0701"シートの13行目が”ABC”の行を、"検索結果"というシートにコピーしたいです。 以下のマクロを実行しますと、まず"マスタ0701"のB1のセル(13行目はブランク)がコピーされ、その下に13行目が”ABC”に該当する行がコピーされます。 なぜ、B1セルまでコピーされるのかご教示頂けますと幸いです。 (2)また検索結果だけでなく、オートフィルタのタイトル行もコピーするようにするにはどうしたら良いでしょうか? よろしくお願いいたします。 Sub 絞り込み() With Worksheets("マスタ0701").Range("A1") .AutoFilter Field:=13, Criteria1:="ABC" .CurrentRegion.SpecialCells(xlVisible).Copy Worksheets("検索結果").Range("A1") .AutoFilter End With End Sub

    2020/08/09 15:29