プログラミング・開発
- 変数の値をセルから取得したい
お世話になります。 下記のセル・VBAを入力しています。 私が希望する形は、 「test」に「5」が入って欲しいのですが、 「test」に「g_array(1, 1) 」が入ってしまいます。 ※変数をセルで指定したいのです。 どのようにすれば、testに「5」を入れる事ができるでしょうか? 何卒宜しくお願い致します。 -----VBA---- Sub sample() Dim g_array(3, 3) As Variant g_array(1, 1) = "5" Dim test As Variant test = Cells(10, 5).Value End Sub ----エクセルのcells(10.5)に入力した値---- g_array(1, 1) --------------------------------
- ベストアンサー
- Visual Basic
- kgyqk433
- 回答数1
- 引数の値がない場合に自動入力
お世話になります。 VBAで下記の「関数A」があります。 親ソースで、下記2パターン記載した時に (1)は、test=1で処理が進む (2)は、test=999で処理が進むようにしたいのですが どのように関数Aを記載したら良いでしょうか? ※引数を指定しない時は、999の値が自動で入るように したいのです。 (1)call 関数A(1) (2)call 関数A ※何も引数を指定しない ------関数A---- sub 関数A(test as Long) 'testを使って色々 end sub -----------------
- ベストアンサー
- Visual Basic
- kgyqk433
- 回答数2
- Access2000でUTF8をSHIFT-J変
お世話になります。 Access2000でUTF8のテキストファイルをSHIFT-JISに変換して読み込みたいのですが、どのようにしたら良いのか分かりません。 VBAでこの処理を行ないたいと思っております。 どなたかご教授いただければ、大変助かります。
- 締切済み
- Visual Basic
- msdesoft
- 回答数1
- 質問内容のサンプルソース
こんにちは。 OKWaveにプログラミングの質問をする際に、 質問内容にサンプルソースを張り付けると、文字数制限に引っかかってしまいます。 文字数以上のサンプルソースの時みなさんどうされているんでしょうか?
- ベストアンサー
- その他(プログラミング・開発)
- megane5050
- 回答数4
- WPF C# Focus()と同等の処理
お世話になります。 よろしくお願いします。 題名通りです C#でのFocus()と同等のWPFの処理をご教授願えませんでしょうか 現在Focusの代わりにCaptureMouse()を使用してますが 思った通りに動いてくれないので、ご教授お願いいたします。 簡単な仕様ですが WPFユーザーコントロール( A )に、WPFユーザーコントロール( B )をAddして A にMouseEnterすると、B にフォーカスを当ててBのイベント処理をするようにしております。 宜しくお願い致します。
- ベストアンサー
- Visual Basic
- pokeman-v
- 回答数2
- Lineshapeコントロールの削除方法について
VS(Visual Basic2012)でアプリケーションの開発をしております。 WindowsフォームアプリケーションにてForm上のPanelにコンテナされている Pictureboxに、Buttonをクリックする度にLineshapeコントロールを動的に配置するようにしています。 そこで、とある動作(他のButtonのクリックとか)で、 そのなかの特定のLineshapeコントロールを削除したいのですが、やり方がわかりません。 Lineshapeコントロールは以下のソースのように配置しています。 配置したコントロール名がわかれば削除できそうなのですが、コントロール名の取得の方法がわかりません。 配置したLineshapeコントロールを削除する方法があれば上記の方法以外でも構いません。 どなたかアドバイスいただけたら幸いです。 以下ソースです。 Dim canvas As New PowerPacks.ShapeContainer Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click Dim win As New LINESHAPE ' Set the form as the parent of the ShapeContainer. canvas.Parent = Me.PictureBox6 ' Set the ShapeContainer as the parent of the LineShape. win.Parent = canvas win.BorderWidth = 20 win.BorderColor = Color.LightBlue win_index = win_index + 1 win.SetIndx(win_index) win.SetAng(0) win.Name = "Win" & win_index win.SetX(Panel1.Width / 2) win.SetY(Panel1.Height / 2) win.X1 = win.GetX - 50 * Math.Cos(win.GetAng * Math.PI / 180) win.Y1 = win.GetY + 50 * Math.Sin(win.GetAng * Math.PI / 180) win.X2 = win.GetX + 50 * Math.Cos(win.GetAng * Math.PI / 180) win.Y2 = win.GetY - 50 * Math.Sin(win.GetAng * Math.PI / 180) '動的にイベントを関連付ける AddHandler win.MouseDown, AddressOf win_MouseDown AddHandler win.MouseUp, AddressOf win_MouseUp AddHandler win.MouseMove, AddressOf win_MouseMove End Sub Public Class LINESHAPE Inherits PowerPacks.LineShape Dim idx As String Dim ang As String Dim p_x As String Dim p_y As String Public Sub SetIndx(index As String) idx = index End Sub Public Sub SetAng(angle As String) ang = angle End Sub Public Sub SetX(xx As String) p_x = xx End Sub Public Sub SetY(yy As String) p_y = yy End Sub Public Function GetIndx() Return idx End Function Public Function GetAng() Return ang End Function Public Function GetX() Return p_x End Function Public Function GetY() Return p_y End Function End Class 以上、よろしくお願い致します。
- 締切済み
- Visual Basic
- happy727
- 回答数1
- ランキングで似た配列を探す。似ている確率も求めたい
「要素数が固定の配列」「あるいは先頭から要素を5つぐらいを切り取った配列」で、 「自分と似た配列」を「似ている確率順」で表示させたいのですが、どうすればいいでしょうか? ■似ている ・内容が一致 ・順番も一致? ・一致している数? ・先頭からの要素数が一致している方が優先? 特にこうしたい、という強い希望があるわけではないのですが、「似ている配列」を求めたいとき、どういう方法が考えられるのか知りたく、質問しました
- gccにおけるimport
C++をg++でコンパイルしようとした時、importがサポートされていない理由はなぜでしょうか? 警告: #import は廃止された GCC 拡張です [-Wdeprecated]
- ベストアンサー
- C・C++・C#
- pipopipoid
- 回答数3
- C言語課題(数値計算)お願いします。
課題内容 ニュートン法を用いて√2の値を求められるプログラムを作る。 10ケタまで表示する。 書いてみたソースコード #include <stdio.h> #include <stdlib.h> #include <math.h> #define max 1000 //最大繰り返し回数 #define eps 1.0e-10 //収束条件 double f(double x); double df(double x); void newton(void); int main() { newton(); return 0; } void newton(void) { int count; double a,newa; count=0; printf("初期値を入力してください。\n"); scanf("%lf",&a); for(;;) { count++; newa=a-f(a)/df(a); if(fabs(newa-a)<eps) break; a=newa; if(count==max) { printf("収束しませんでした。\n"); exit(1); } } printf("解の値は %f\n収束するのに %d 回かかりました。\n", newa,count); } double f(double x) { return x*x-2; } double df(double x) { return 2x; } コンパイルできません。 間違いとどうすればよいかを教えていただけるとありがたいです!!!
- PHPのサンプルコードが意図した通りに動かない。
かれこれ6時間眺めてますが何が駄目なのかがわかりません。 どこが悪いのか教えていただけると助かります。 このbbs.phpは 二つのインプット要素をもつHTMLフォームを含むPHPファイルで、 名前とひとことコメントを入力してsubmitすれば フォームの下部にそのコメントを 名前、コメント、日付の書式で一行づつ表示する 。。。はずだったんですが Parse error: syntax error, unexpected T_STRING in /Applications/XAMPP/xamppfiles/htdocs/online_bbs/bbs.php on line 48 らしく該当する行を眺めてみても何がいけないのかさっぱりです。 コード内にもエラーが出たら出力するコードがあるのですが どうやらこれはインタープリタ自体が吐くエラーのようで このエラーの表示時にはフォーム要素は一切表示されません。 なにがいけないのか教えてください ほとほと困り果てています <?php $link = mysql_connect(`localhost`,`root`,`takataka`); if(!$link) { die(`Can not connect database`. mysql_error()); } mysql_select_db(`online_bbs`,$link); $errors = array(); if($_SERVER[`REQUEST_MTHOD`]===`POST`) { $name = null; if(!isset($_POST[`name`]) || !strlen($_POST[`name`])) { $errors[`name`] = `input your name `; }else if(strlen($_POST[`name`]) > 40) { $errors[`name`] = `名前は四十文字以内で入力してください`; }else { $name = $_POST[`name`]; } $comment = null; if(!isset($_POST[`comment`]) || !strlen($_POST[`comment`])) { $errors[`comment`] = `Input your comment please `; }else if(strlen($_POST[`comment`]) > 200) { $errors[`comment`] = `コメントは200文字以内で入力してください`; }else { $comment = $_POST[`comment`]; } if(count($errors) === 0) { $sql = "INSERT INTO `post` (`name`,`comment`,`created_at`) VALUES (`" . mysql_real_escape_string($name) . "`,`" . mysql_real_escape_string($comment) . "`,`" . date(`Y-m-d H:i:s`) . "`); mysql_query($sql,$link); mysql_close($link); header(`Location: http://localhost/online_bbs/bbs.php`); } } ?> <html> <head> <titlle>ひとこと掲示板</title> </head> <body> <h1>ひとこと掲示板掲示板</h1> <form action="bbs.php" method="post"> //ここが48行目になります <?php if (count($errors) > 0): ?> <ul class="error_list"> <?php foreach ($errors as $error): ?> <li> <?php echo htmlspecialchars($error,ENT_QUOTES,`UTF-8`) ?> </li> <?php endforeach; ?> </ul> <?php endif; ?> 名前:<input type="text" name="name"/><br/> ひとこと;<input type="text" name="comment" size="60"/><br/> <input type="submit" name="submit" value="送信"/> </form> <?php $sql = "SELECT * FROM `post` ORDER BY `created_at` DESC"; $result = mysql_query($sql,$link); ?> <p><?php echo $result; ?></p> <?php if($result !== false && mysql_num_rows($result)): ?> <ul> <?php while($post = mysql_fetch_assoc($result)): ?> <li> <?php echo htmlspecialchars($post[`name`],ENT_QUOTES,`UTF-8`); ?> <?php echo htmlspecialchars($post[`comment`],ENT_QUOTES,`UTF-8`); ?> - <?php echo htmlspecialchars($post[`created_at`],ENT_QUOTES,`UTF-8`); ?> </li> <p>test</p> <?php endwhile; ?> </ul> <?php endif; ?> <?php mysql_free_result($result); mysql_close($link); ?> </body> </html>
- while(<ハンドラ>) {} で行数をカウント
こんにちは。 掲示板をperlで作るという課題に取り組んでいるのですが、下記の部分の 動きだけがどうしても期待する動作がえられず、困っています。 なにか試した方が良い事がありましたら、ご指摘いただけないでしょうか。 プログラムの説明: POST されたコメントを data.dat に追記していくプログラムです。 ファイルハンドラから一行づつ読み込んで、行数を $count でカウントし、 『X行目&&コメント』のようにコメントの先頭に行数を表示します。 #!/usr/bin/perl $myfile = 'data.dat'; (省略) sub piyo{ open(HOGE, ">> $myfile"); flock(HOGE, 2); my $count = 1; while(<HOGE>){ $count++; }; print HOGE "$count行目&&in{'comment'}\n"; close(HOGE); }; data.dat の期待する結果は下記です。 1行目&&コメント 2行目&&コメント 3行目&&コメント ..... 実際に data.dat に書き込まれた結果は下記でした。 1行目&&コメント 1行目&&コメント 1行目&&コメント ..... 試した事1: open(HOGE, ">> $myfile"); を open(HOGE, "+>> $myfile"); した。 試した事2: while(<HOGE>){ $count = $count + 1; }; とした。 どちらでも結果に違いがありませんでした。 よろしくお願いします。
- ベストアンサー
- Perl
- jussmen_1979
- 回答数3
- PHPに複数のパラメータを渡すには?
こんばんわ。 PHPを入門書片手にいろいろ試しています。 phpでボタンを表示して、押されたら別のphpを呼び出したいと思っています。 そのphpにパラメータを二つ渡したいのですが、どのように記述すればよろしいのでしょうか? 抜粋すると以下のような感じなのですが、 $machi_id = "秋葉原" ; $mise_id = "ジャンク屋" ; echo "<form action=\"henkou.php\" method=\"post\" name =\"jusho_id\" >\n"; echo "<input type=\"submit\" name=\"jusho_id\" value=\"住所の変更\" >\n"; echo "</form>\n"; $machi_idと$mise_idをhenkou.phpに渡したいのです。 henkou.phpで$_GETでも$_POSTでもいいので何らかの方法で$machi_idと$mise_idを取得するにはどのようするばよろしいのでしょうか? 上記についてよろしくお願いします。
- ベストアンサー
- PHP
- TeijigoTeatime
- 回答数2
- VB.NET 2008 での \ の扱い
現在VB.NET 2008 EXPとMySQLを用いてシステムを作成しています。 MySQLのテーブルにファイルのパスを保存したのですが、「\」記号が全て消えてしまいます。 例 \\PC\users\public\boo1.xls ---> PCuserspublicbook1.xls 原因を探るために以下の項目を試してみました。 1) AccessからMySQLにパスをInsertする。 --> 問題なく保存出来た。 2)MySQLのGUIツールを使用して、直接パスを入力 --> 問題なく保存出来た。 上記のことから、VB.netからInsertする場合のみ、「\」記号が消えてしまうことがわかりました。 VB.NETでは「\」記号は扱えないのでしょうか? パスを保存するためにはどのようにすればよいでしょうか?
- ベストアンサー
- Visual Basic
- con014057
- 回答数1
- Prologの外部利用について
Prologを他の言語から利用したいのですが 何かいい方法はないでしょうか できればHSPかC言語から利用したいです。
- ベストアンサー
- その他(プログラミング・開発)
- __twilight__
- 回答数1
- JavaMailを使って有料アプリ公開してもOK?
初めてのアプリ公開で色々自身がなく、教えてください。 OracleのJavaMailライブラリを使ったアプリを作ったのですが、ライセンスを見ると3つも書いてあり、何をしなければいけないのか、これでどこまで出来るのかがよくわかりません。 ・CDDL-1.0 ・GPL-2.0 ・BSD 具体的にはこのライブラリを利用して制作したソフトウェアを有料で販売しても良いのでしょうか。 jarのまま仕様しており、展開などは一切してません。 またクレジット表記などどう書いて良いのかもよくわかりませんので ご教示いただけたらありがたいです。
- ベストアンサー
- その他(プログラミング・開発)
- 321nirik
- 回答数2
- getElementsByClassName使い方
getElementsByClassName を使って記述コードの tag2、tag3 の style="color: #cccccc;" を 削除するには、どのようにすれば良いのでしょうか? 自身のスクリプトは残念ながら動作せず。仮に動作してもnode指定はしません。 <div class="abc" style="color: #cccccc;">tag1</div> <div class="abc" style="color: #cccccc;">tag2.</div> <div class="abc" style="color: #cccccc;">tag3.</div> <script> var hoge = Array.filter( document.getElementsByClassName( this.attr ), function( elements ){ return elements[0].nodeName == this.tag; }); hoge.removeAttribute( 'style' ); </script>
- ベストアンサー
- JavaScript
- yukiling
- 回答数1
- Ajaxがおかしいんです
Javascript初級者です。 Ajaxを使ってデータの重複チェックを行おうとしました。 ところがAjaxがヘンな動きをするんです。 以下のコードなんですが、上の登録処理の中で、function doubleCheck を呼んで います。 問題は2つあって、ひとつは実際に重複していてもしていなくても「true」を 返してくることです。 console.log("res=========" + res) には「yes」とか「no」とか重複有り無しで 異なりますが、ちゃんとそれぞれセットするにも関わらず、 if(!doubleCheck() では必ず「false」が戻ってきてしまいます。 もう一つおかしい点は、重複検索(これはPHPでやってます)の最中にもかかわらず、 「true」が返ってきて "重複があったので登録できません。" お、出てしまうことです。 それで調査するために console.logその2を入れてみました(※※※のところ)。 ところがこの console 何も吐き出しません。 ということは doubleCheck() の最後の if文にたどり着いていない、または 途中でエラーになっているのかもしれません。 私の書いた Ajax のコードがおかしいんでしょうか。 どなたか御指導下さい。 よろしくお願いします。 // 追加登録処理 function doActionAdd(){ if(dataCheck()){ // customerId が 空白か否かのチェック if($('#customerId').val() == ""){ if(window.confirm("追加登録していいですか?")){ if(!doubleCheck()){ window.alert("重複はありませんでした"); }else{ window.alert("重複があったので登録できません。"); } (以下略) function doubleCheck(){ var yomi = $('#customerYomi').val(); var res = ''; // 重複チェック $.ajax({ type: "POST", url: "../customer/CustomerDoubleCheck.php", data: {"customerYomi":yomi}, dataType: 'text', // ajax通信が成功したときの処理 success: function(request){ console.log("request=========" + request); var json = JSON.parse(request); console.log(json[0].result ); res = json[0].result; console.log("res=========" + res); }, error: function(XMLHttpRequest, textStatus, errorThrown){ $('div#jobStatus').text("重複チェック検索ができませんでした。"); return false; } }); console.log("resその2=========" + res); //※※※ if(res == "yes"){ // 重複していたので「false」を返す。 return false; }else{ // 重複していなかったので「true」を返す。 return true; } }
- ベストアンサー
- JavaScript
- panasobi
- 回答数3
- C#でSQliteを使おうとしても認識しない
お世話になります。 http://blog.ume108.mobi/?p=3378 こちらのサイトを参考に、C#でSQLiteを使えるように しようとしたのですが、インストール、TestApplicationと うまくいっているのですが、実際のVisualStudioでSystem.Data.SQLiteを 認識してくれません。もちろん、参照の追加でインストールした 『System.Data.SQLite.dll』は追加しています。 原因及び対策を教えていただけないでしょうか。 よろしくお願いていたします。 環境は、Windows8、VisualStudio2010ExpressEditionです。 インストールしたのは、『sqlite-netFx45-setup-bundle-x64-2012-1.0.86.0.exe』です。
- 締切済み
- C・C++・C#
- tatapatank
- 回答数1
- eclipse DBViewerにデーターを書込む
度々質問させていただいており、お世話になっております。 今、会社の日報システムをjava Swingで作成しております。 日報システムはJFrameやJButtonなどを用いて「取引会社名」「面談者(相手企業)」「報告者(自身)」「内容」の項目があります。 上記項目を入力後、「報告」のボタンを押されるとEXCELファイルが出力されます。 基本的には取引会社に行ったその日に日報システムを使って報告することになっているため、 JCalendar変数でyear, month, date, hour, min, secondを取得しているため、出力されるxlsファイルには「mm/dd/ hh:mm:ss」が書き込みをされます。 基本1ヶ月単位の会社毎に分けたいため、 ・「その月に「取引会社」に行った人がいない」場合には 「yy年mm月○○会社」というxlsファイルを新規作成し、1行目には「日付」「報告者」「面談者」「内容」 という見出しを作成し、2行目から各々が入力された情報が出力されるようになっています。 ・「すでにその月の会社名のファイルが存在する」場合には 空白行を検索し、その行に入力された情報を上書きするようになっています。 ここまでは実装済みなのですが、このxlsファイルを生成する場所で躓いてしまいました。 会社ではDropBoxで会社の情報を共有しています。 私のPCではCドライブの直下にあるのですが、 他の方のPCではDドライブにあったり、C:User直下にあったりしてしまい、保存先を固定することが出来ません(Eclipse上ではとりあえずプロジェクトファイル直下に置かれるようにしております)。 そこで、システムに詳しい方に助けを求めたところ、 FTPサーバーを使って、サーバーにファイルを保存する か データーベースを使って、データーベースでファイルの読み書きをする ということでした。 FTPサーバーもデーターベースも勉強不足で知識が全然ないため、ぐぐったりしてなんとか解決しようとしているのですが、解決に至りません。。。 eclipseでDBViewerの導入が終わり(derby使用)、テーブルも作成段階なのですが、 このDBViewerにデーターを「上記EXCELファイルに書き込む要領で書き込む」にはどのようにすればよいのでしょうか? ぐぐっても見当たらなかったため、ご教授頂ければと思います。 調べ方が悪いかもしれないためこのサイトを参考にということであればそちらのサイトを教えて頂ければと思います。 宜しくお願いします。
- VBA - セル解除
コピーA列結合セルを解除して、解除した行にすべてに「OK」と入れたいのですがうまくいきません。 アドバイスをお願い致します。 Dim i, Addr Worksheets("Sheet1").Range("A:A").Copy With Worksheets("Sheet2") .Range("A1").PasteSpecial . . If .Cells(i, 1).MergeCells Then Addr = .Cells(i, 1).MergeArea.Address .Cells(i, 1).UnMerge .Cells(i, 1)(Addr) = "OK" '←ここがダメです。 End If . .
- ベストアンサー
- Visual Basic
- noname#187796
- 回答数1